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EDITORIAL 


Bonjour chez vous, 


Ce numéro est bien proche du précédent, mais ce n’est 
encore que le numéro de septembre. Et nous sommes en 
octobre. Les quelques mois qui nous séparent de la fin de 
l’année vont voir cette situation changer. Du moins nous 
l'espérons, et nous ferons tout ce qui est possible pour 
revenir dans les temps. 


Ce Journal est le premier à être réalisé avec une nouvelle 
série de programmes sur HP71. Ils nous affranchissent d’un 
certain nombre de contraintes lors des phases finales de la 
réalisation, et nous font gagner un temps précieux. Nous 
espérons faire évoluer ces outils pour améliorer encore la 
présentation. 


Bonne lecture, et à bientôt. 


Pierre David 
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PPC PARIS SE REUNIT UNE FOIS PAR MOIS 


Comme vous Le savez peut être déjà, PPC Paris 
se réunit une fois par mois, en plein coeur de 
Amenez votre matériel, votre bonne 
volonté et vos idées ! Plus vous en apporterez, 


Paris. 


et plus vous en trouverez chez vos collègues de 
PPC. 

Ces ‘ réunions se déroulent de manière très 
libre, aucun ordre du jour, discussion ou autre 
n'étant imposé. Un membre du bureau est toujours 
présent. Ainsi, si vous désirez remettre votre 
article tout frais au Journal, si vous avez des 
suggestions à faire, Si vous voulez vous 
procurer des anciens numéros de JPC, ce sera en 


principe toujours possible. 


Si donc cela vous intéresse, n'hésitez plus un 
seul instant, venez nous rejoindre tous les 
premiers samedis de chaque mois (sauf en péride 
de vacances scolaires) au : 


Centre de Jeunesse et de Loisirs Jean Verdier 
11 rue de Lancry 
75010 Paris 


et en montant au deuxième étage, vous entendrez 


des éclats de rire et des discussions 


passionnées vers La salle 215. Attention, 
toutefois, de venir entre 16 et 19h. 
Pour l'accès en métro, trois possibilités 


s'offrent à vous : 


- Métro Strasbourg Saint Denis : 
Sortie porte St Martin / Bd St Denis, coté pairs 


- Métro République : 
Sortie Bd St Martin, coté pairs 


- Métro Jacques Bonsergent : 
Sortie Bd Magenta, coté impairs. 


Ah, j'oubliais ! JPC est (souvent) distribué en 
avant première lors de ces réunions... À bon 


entendeur, salut |! 


Les dates des prochaines réunions sont : 
Samedi 15 novembre 1986 


Samedi 6 décembre 1986 
Samedi 17 janvier 1987 
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Samedi 7 février 1987 
Samedi 7 mars 1987 
Samedi 4 avril 1987 
Samedi 16 mai 1987 
Samedi 6 juin 1987 


Pierre DAVID 
(P37, S1G1, CHHU616) 





AH ! VOUS ECRIVEZ 


Vous vous sentez en verve, Mais vous ne savez 
pas sous quelle forme "l'équipe de rédaction" 
souhaite recevoir votre prose. C'est ici que se 
trouvent les réponses à vos questions. 


Dans La mesure du possible, vous devez nous 
envoyer vos écrits sur support 
cassette ou disquette). Soyez sans 


magnét ique 
(carte, 
crainte, nous vous retournerons vos biens après 
copie. 

Si vous ne pouvez pas utiliser de support 


magnétique, OU ne pouvez vous rendre aux 
réunions, alors et alors seulement faites le sur 


papier. 


Que ce soit sur une feuille de papier, ou sur 


support 
caractères par ligne. 


magnétique, ne  dépassez pas 50 


Pour nous épargner du travail, insérez dans 
commandes de 
suivantes (et non Les commandes du formatteur 
HP) : 


votre texte Les formattage 


“sn centre un titre, par exemple : 
TITRE 


M\W  (CHR$S(92)) marque le début et La fin d'un 
paragraphe. Par exemple : 


\Début de paragraphe exprimant Le contenu de 
vos idées qui, même si vous en doutez, 
membres du Club. 
débutant. Les 
articles pour débutants écrits par des débutants 


intéressera certains des 


Surtout si vous vous sentez 


sont ceux qui manquent Le plus. Fin de 
paragraphe.\ 


RL 


N'oubliez pas de mettre les accents. Utilisez 
le jeu de caractères Roman8B. Les possesseurs de 
HP71 utiliseront Les redéfinitions de touches 
ci-dessous, ainsi que le fichier CHARLEX listé 
dans le coin des Lhex en fin de journal. 


Jean-Jacques Dhénin 


DEF KEY ‘fW', CHR$(197); (é) 
DEF KEY 'fE', CHR$S(193); (é) 
DEF KEY 'fR', CHR$(201); (è) 
DEF KEY ‘fY', CHR$(203); (ù) 
DEF KEY 'fU', CHR$(195); (ü) 
DEF KEY ‘fl', CHR$(209): (i) 
DEF KEY 'fO', CHR$(194); (6) 
DEF KEY 'f/!, CHRS(92); (\) 
DEF KEY 'fA', CHR$(192); (à) 
DEF KEY ‘fS', CHRS(200); (à) 
DEF KEY 'fD', CHR$(205); (é) 
DEF KEY ‘fJ', CHR$(207); (ü) 
DEF KEY ‘fK', CHRS(221); (i) 
DEF KEY ‘f*1, CHRS(124); (1) 
DEF KEY ‘fC', CHRS(181): (ç) 


COURRIER DU COEUR 


Janick TAILLANDIER 

335 rue Lecourbe 

75015 Paris 

Tel : (Bur) 45 61 94 00 


Vend : 
un module 4 Ko pour Le HP71B : 300 F 
un module Forth/Assembleur : 800 F 


Franck GUY 

161 Bd Malesherbes 
75017 Paris 

Tel : 47 63 97 19 


Vend : 
imprimante HP82143A : 2000 F 








François LEFEBVRE 

33 avenue Vanier 

10000 Troyes 

Tel : (Bur) 25 24 90 28 


Vend : 

HP71 + HPIL : 4000 F 

Imprimante ThinkJet : 3400 F 

Prix à débattre si achat de l'ensemble 


APPEL AU PEUPLE ! 


Guy Toublanc (PC276) cherche à contacter les 
membres du Club habitant dans La région Nord. 


Prendre contact avec lui : 


Guy Toubl anc 

21 rue Henri Becquerel 
59120 Loos 

Tel : 20 07 57 30 
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LA HP18 A L'ESSAI 


Comment faut-il l'appeler 7? Calculatrice, 
ordinateur, ou bien faut-il inventer un nouveau 


terme ? 


Douze ans après La HP65, sept ans après la 
devant la HP18. 
Hewlett-Packard, comme de coutume, ne nous a pas 
déçu : ce petit carré de plastique est une 
petite merveille d'innovations, à l'usage des 
hommes d'affaires et autres financiers. 


HP41, nous voici 


PRESENTATION GENERALE - ASPECT 


Elle se présente sous La forme d'un calepin. 
Fermée, elle est nettement plus grande qu'une 
HP12 (ou que toute autre machine de la série 
10), et un peu plus petite qu'un HP71. 


Elle est utilisée verticalement. Ouverte, nous 
pouvons voir à gauche un clavier alphabétique 
dans l'ordre ABCDEF (comme La HP41), et à droite 
l'écran, et les touches numériques et de fonction. 


Cet écran est un écran de quatre lignes de 23 
caractères (vingt trois !), à cristaux liquides. 
Cet écran est extrèmement lisible, clair et 
agréable à l'usage. 
Les touches ne présentent pas de 
caractéristique particulières, mais sont plus 
précises, bien que de course plus faible, que 
leurs homologues de La série 10. 


L'ouverture est possible grâce à une charnière 
imposante, mais autorisant l'ouverture (toujours 
comme un calepin) dos à dos. 


En résumé, la finition est plus que correcte 
(c'est à dire HP), et 
professionnel. 


l'aspect des plus 


L'IMPRIMANTE 


Elle est connectée à La HP18 par une liaison 
infra-rouge permettant, d'après HP, 
l'utilisation jusqu'à 50 cm. On voit d'ailleurs 
la diode émettrice dans une ouverture en haut de 
l'appareil (nous aimerions retrouver une telle 
diode dans un interface HPIL-Infrerouge 1). 


JPC 37 Page 4 





Nous ne l'avons vue qu'en photo. Elle est 
légèrement plus haute que la HP18, et nettement 
plus épaisse, en raison du rouleau de papier 
intégré dans le boitier. 


C'est une imprimante thermique, et le papier 
utilisé est le même que celui des imprimantes 
HP41 et HPIL (HP82143 et 82162). 


Elle est utilisable, soit pour imprimer un 
résultat à La demande, soit pour imprimer la 
totalité d'un calcul (mode trace"). Par 
ailleurs, certaines fonctions de la 
éditent des résultats plus 
proprement. 


machine 
complexes tres 


L'ORIGINALITE DE LA HP18 


A quelle clientèle s'adresse cette machine ? De 
toute évidence, pas aux fanatiques de 
l'aessembleur et autres joyeusetés informatiques. 


Le marché visé est celui des hommes d'affaires 
et autres financiers. C'est à dire des gens très 
spécialisés (ils se feront offrir cette machine 
par Leur entreprise : vous voyez ce que nous 
voulons dire...). 


Hewlett-Packard 
réputation sur ce marché grâce à La  HP12. 
Cependant, il  feut 


a déjà acquis une excellente 


reconnaître que cette 
puissante machine n'est pas d'un emploi aisé. HP 
s'est donc attaché à améliorer considérablement 
la facilité d'utilisation. Dans cette optique, 
la  HP18 est à La calculatrice ce que le 
Macintosh est à l'ordinateur personnel (toutes 
proportions gardées). Et qu'HP nous pardonne 
cette comparaison hardie... 


Cette machine n'est pas programmable. En fait, 
il n'y en a pas besoin. Nous verrons plus Loin 
comment procéder pour résoudre des problèmes 


complexes. 


La Ligne inférieure de l'écran est consacrée à 
l'affichage des touches de fonctions. Car cette 
HP18 est uniquement dirigée par des menus et des 
touches de fonctions. 


Ainsi, Le menu général vous invite à choisir 
entre MFIN." (Calculs Financiers), "AFF." 
(Affaires... c'est à dire des règles de 3), 
"STAT" (Statistiques), "TMPS" (Gestion d'alarmes 
et affichage de l'heure), M"EQUAT" (résolution 
MATH! 


d'équations) et (fonctions 


mathématiques). Pour accéder à l'un de ces 
modes, il suffit d'appuyer sur la 
correspondante en dessous de l'écran. Ces 
touches sont de vraies touches de fonctions, 
Leur signification dépend du menu courant. 


touche 


Chacun de ces menus est composé de à son tour 
de sous-menus, et ainsi de suite jusqu'à ce 
qu'on arrive à La fonction désirée. 


Dans tous les cas, il est possible de revenir 
au menu précédent par la touche [EXIT]. De même, 
le retour au menu principal (celui dont venons 
de parler) se fait par la pression de [MAIN]. 


UTILISATION GENERALE 


HP a abandonné (définitivement 2?) La notation 
polonaise inverse qui nous est si chère. Pour 
calculer une formule, il suffit de la taper, 
puis d'appuyer sur La touche [=] ou [CINPUT]. 
Notons au passage que La touche [INPUT] 
ressemble de Loin à La touche [ENTER] d'une 
HP41... 


Un point négatif cependant : il n'y a aucune 
priorité dans l'évaluation des expressions. 
Ainsi, l'expression 5+3*6 donne 48 et non 23 
comme on pourrait s'y attendre. Sur une machine 
comme La HP18, cela ne nous semble pas trop 
grave. En revanche, ce serait un 
inenvisageable sur une machine à 
scientifique. 


exotisme 
vocation 
Il faut aussi remarquer La lenteur de 
l'ensemble. Tant à La frappe qu'à la réaction de 
l'afficheur, il semble toujours en retard d'une 
manoeuvre. Il aurait été judicieux de soigner 
davantage cet aspect de l'interface utilisateur. 
Par contre, pour le calcul pur, la vitesse est 
tout à fait convenable. 


En revanche, HP nous gratifie d'une pile de 
résultats. Les deux derniers résultats calculés 
sont généralement affichés, et le troisième est 
accessible. Ils sont réutilisables dans de 
nouveaux calculs. Le changement de menu efface 
cette pile. La touche [LAST] permet de récupérer 
dans un calcul La valeur du résultat obtenu. 


Les touches  alphabétiques servent à La 
mémorisation ou l'impression de messages, 
d'alarmes ou à la saisie de formules, comme nous 
allons le voir plus loin. 








Notons La présence d'un tampon de touches, 
similaire à celui du HP71, capable de mémoriser 
une quinzaine de touches. 


Malheureusement, il faut déplorer (une fois 
encore pour Les machines HP) Le manque de 
mémoire. Les quelques 1,2 Ko (de 
permanente) sont trop rapidement saturés. 


mémoire 


LE MENU "FINANCIER" 


On retrouve ici la plupart des fonctionnalités 
classiques d'un calculateur financier, c'est à 
dire calculs de taux d'intéréts, calculs 
d'actualisation et conversions de taux d'intérêts. 


A ce niveau, nous avons apprécié Le confort 
procuré par les menus, qui évite de mémoriser 
des séquences de touches complexes comparables à 
celles de La HP12. Un plus, également, par 
rapport à cette machine : La vitesse d'exécution 
des calculs de taux de rentabilité interne (par 
exemple) rend l'utilisation agréable. 

Cette impression est renforcée par La 
visualisation en cours de calcul des résultats 
intermédiaires, ce qui évite de laisser calculer 
La machine quand ïil n'est manifestement pas 
possible de trouver une solution cohérente. 


MENU AFFAIRES" 


Ce menu n'offre, en 
résolutions de 


général, que des 
règles de trois par 
l'intermédiaire de menus : ceci n'est pas une 
prouesse informatique, mais nous avons aimé la 
simplicité qui en découle. Ainsi, il n'y a plus 
besoin de réfléchir au calcul, ce qui rend cette 
calculatrice encore plus accessible au non 
informaticien. 


On retrouve, dans ce menu, les fonctions 


“delta%" et "XI" disponibles sur La HP12 et sur 
d'autres calculatrices HP (HP32E, par exemple). 


. MENU MSTATISTIQUES" 


Ce menu, très complet, présente beaucoup 
d'innovations. Comme pour Les calculs 
d'actualisation de flux financiers, 


l'utilisateur saisit des [Listes complètes de 
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nombres, conservées en mémoire par La HP18. IL y 
a possibilité de passer d'une liste à l'autre, 
et de modifier très simplement tout élément 
d'une liste quelconque. 


les opérations disponibles sur ces [Listes sont 
relativement classiques : il s'agit de la somme 
des éléments, moyenne, médiane, écart type, 
écart entre la plus petite et La plus grande 
valeurs, valeurs minimum et maximum. Moins 
classique est Le tri en ordre ascendant des 
valeurs de la liste. On retrouve enfin la 
régression linéaire, complétée par les trois 
autres types de régression 


exponentielle et puissance). 


(logarithme, 


Une des listes est La liste courante et, pour 
les opérations de régression, correspondra à 
l'ordonnée. Une autre Liste, choisie parmi les 
listes présentes en 
l'abscisse. 


mémoire, servira à 
Ce système permet de changer de 
Liste assez facilement. IL simplifie grandement 
une manipulation de 


complexe. 


données  intrinsèquement 


Malheureusement, et c'est le revers de la 
médaille, La taille mémoire est très limitée et 
ne peut convenir qu'à de petites séries 
statistiques. IL n'empêche que ce traitement des 


listes est très agréable. 


MENU "TEMPS" 


Au programme : Calculs de dates, saisie 


d'alarmes, réglage de l'horloge, et mise à 


l'heure. 


Les calculs de date, bien que classiques, sont 
mis en oeuvre sur cette machine de manière très 
agréable. Les dates sont saisies avec le même 
format que sur une bonne vieille HP41, c'est à 
dire  : jj.mmaaaa si vous êtes au format 
européen. Il va de soi que la saisie est aussi 
possible avec le format américain. Vous pouvez 
calculer, entre autres, le nombre de jours entre 
deux dates, le jour de La semaine, Le jour après 
un intervalle donné, et ceci en utilisant soit 
l'année civile (365 ou 366 jours), soit des 
années de 360 ou 365 jours. 


IL est possible d'avoir jusqu'à 6 alarmes 
simultanément dans La HP18. Comme sur La HP41, 
il est possible de spécifier un intervalle de 
répétition. A l'heure dite, votre 
émettra une série de beeps assez vigoureux, mais 


machine 
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de courte durée, en affichant le 


éventuellement saisi avec Le reste de l'alarme. 


message 


Le réglage de l'horloge et Las mise à l'heure 
sont des fonctions qui vont de soi... 


LE MENU "RESOLUTION D'EQUATIONS" 


C'est Là Le coeur de La machine, et ce qui nous 
a semblé le plus remarquable. Avec ce menu, (La 
programmation n'a plus besoin d'exister, du 


moins pour les problèmes numériques. Précisons : 


Le concept de ce menu est de poser le problème, 
et non de coder La méthode de résolution dans un 
langage plus ou moins barbare. Par exemple, nous 
savons que : 


prix total = prix unitaire x quantité 


Ceci peut être entré dans La HP18 sous La forme 
suivante : 


PTOT=PUNITXxQTE 


Ceci fait, en passant par Le mode "résolution, 
on voit apparaître un menu composé des touches : 


(PTOT), (PUNIT] et (QTE] 


Supposons que l'on veuille connaître Le prix de 
5 HP18. 11 suffit de taper : 


1800 [(PUNIT] 

5 (QTE) 

[(PTOT)] 

Et cette géniale machine vous répondra : 9000. 
Compliquons terriblement. Supposons que vous 
achetiez La même machine ailleurs, en un endroit 
où elle vaut 1700 F. Avec les 9000 F que vous 
êtes prêts à dépenser, combien pouvez-vous vous 
acheter de HP18 ? 


IL suffit alors de taper (puisque PITOT vient 
d'etre calculé) : 


1700 [(PUNIT) 
(QTE) 


Et vous saurez que vous pourrez Vous payer à 
peu près 5.29 HP18. Etonnant, non ? 


à 2 om 


Trèves de plaisanteries : il est naturellement 
possible de saisir des formules non linéaires 
(un peu plus sophistiquées que des règles de 
trois). De nombreux opérateurs sont disponibles. 
Parmi eux, nous citons en vrac : Factorielle, 
exponentielles, calculs de dates, calculs 
d'actualisation. IL est même possible de les 
combiner avec un opérateur conditionnel (1F) 


pour résoudre des problèmes nettement plus 


complexes. Quand elle ne peut trouver une 
solution directe, la machine procède par 
itérations, en affichant les étapes 


intermédiaires du calcul, ce qui permet de 


contrôler la recherche de la solution. 


Ce processus est relativement rapide, et fait 
tout Le prix et l'intéréèt de la machine. Cette 
évolution de l'informatique de poche nous semble 
remarquable. 


Quel dommage qu'il n'y ait pas plus de mémoire 
pour stocker davantage de formules ! 


LE MENU "FONCTIONS MATHEMATIQUES" 


Nous serons très brefs. IL s'agit de fournir 
des fonctions mathématiques non disponibles sur 
le clavier : factorielles, exponentielles, etc... 


LA LITTERATURE 


Commençons par le manuel. Très didactique, il 
vous explique de manière progressive et agréable 
comment utiliser votre machine. Il permet aux 
débutants une prise en main douce et rapide. 
Néanmoins, nous aurions apprécié une section de 
référence qui permette d'accéder rapidement à 
l'essentiel. 


Viennent ensuite les livrets d'application. Pas 
très onéreux, ils couvrent les domaines tels que 
finances, marketing, immobilier, applications 
ILS présentent quelques formules 
d'usage courant dans les domaines en question, 
accompagnées d'exemples d'utilisation. Un effort 
tout particulier à été fait vers les 


utilisateurs non informaticiens. 


bancaires... 


Signalons ‘L'apparition au catalogue d'Educalc 
(organisme de vente par 
Etats-Unis) 
utilisation, et ce dès la sortie de la machine. 
Ces manuels ont été écrits par des personnes 
extérieures à HP. 


correspondance aux 
d'ouvrages sur La HP18 et son 








CONCLUSION 


Si vous êtes Un amateur de modes d'emploi 
incompréhensibles à tout autre que vous-mêmes, 
vous êtes vivement invités à prendre des leçons : 
quelques quarts d'heure suffisent pour maitriser 


La HP18 ! 


IL nous semble que cette machine représente un 
progrès majeur dans La mise au point d'une 

utilisateur agréable sur les 
calculatrices. En ce sens, elle est très réussie 
et, bien que ne correspondant pas à nos 
"manies", elle nous paraît valoir largement les 


pages que nous lui avons consacrées. 


interface 


A vous de juger... 


Pierre David (SIG1, PC37, CHHU616) 
Janick Taillandier (SI1G6, PC246, CHHU178) 





CN 
F 
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X ? Gestion de compte bancaire 10 
F. Legrand Naviguer sur HP41 15 
J.J. Moreau & F. Friesse Calcul de pH automatique 17 
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GESTION DE COMPTE BANCAIRE 


Ce programme permet de mémoriser les entrées et 
sorties sur un compte unique. Le but est de 
parvenir à retrouver facilement la trace d'un 
chèque. La recherche est monocritère et peut 
porter soit sur l'ordre, La date ou le numéro du 
chèque. Dans ce cas il est nécessaire que les 
numéros 
temps. Pour être plus clair : 


aillent en ordre croissant avec le 
un chèque tiré à 
une date doit avoir un numéro supérieur à tous 
ceux tirés antérieurement. Si cette règle n'est 
chèque sera 
mémorisé, mais La recherche par numéro sera 
inopérante. Cette restriction permet de limiter 


pas respectée le correctement 


Le temps de recherche qui, autrement, serait 
rédhibitoire. 


En contrepartie, ce programme gère une mémoire 
de masse et La X-Mem. Les fichiers sont appelés, 
répertoriés, mis à jour puis Sauvegardés. 
Lorsque tout cela est fait, le programme s'auto 


efface afin de laisser un environnement propre. 


Matériel nécessaire : 


COMPTE a été développé sur Une  41CV+XF+2 
XM+TIME+HPIL+K7 DRIVE+PRINTER. Il gère donc ces 
périphériques. Cependant 
imprimante ou avec moins de XM est prévue. Elle 


l'utilisation sans 


ne sera que moins confortable 1! L'emploi sans 
mémoire 
programme. Remplacez les routines de rappel par 


de masse demande une adaptation du 


des messages d'invite (sous - programmes F,"FL?", 
etc ). 


Dans La mesure où l'auteur de ces lignes n'a 
pas touché de 41 depuis 2 ans et rédige ces 
explications presque de mémoire, il vous est 
demandé 
inexactitudes qu'elles pourraient contenir. Merci. 


la plus grande mansuétude quant aux 
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au nn an bo ete nnn Rn — 


Structure d'un fichier : exemples : 
z==========S22=22s22222222222=2225 | 
No | Intitulé | 
z===========222===2==s===222222222| 
| 
0 | Nom du fichier | "0586" 
| = date au format MMAA | (Mai 86) 
======s=s=ssSSSSSS=S=SESZZEz==Z=====-- | 
1 | No chèque, jour | 6939958,25 
2 | Montant (francs) | 1785.20 
3 | Ordre | Garage 
asia aenenererse nés sn ss | 
| No chèque, jour | 6939959,26 
| Montant (francs) | 220.00 


| Ordre | Carte Orange 


Ceci signifie qu'en Mai 86 vous avez tiré à 
chèques. Le premier d'un montant de 1785.20, le 
25, sans doute pour votre voiture ! Le second de 
220.00, le 26, représente l'achat de votre carte 
orange (étiez-vous dégouté de La voiture 227). 


Avant que La 41 puisse utiliser un fichier il 
faut qu'elle le crée. Cela signifie qu'en début 
de chaque mois vous utiliserez l'option 4 du 
menu pour déclarer Les chèques à venir. J'ai 
voulu cette procédure manuelle afin que vous 
puissiez contrôler un minimum Les agissements de 
votre préférée ! 

Le répertoire des fichiers déja ouverts figure 
dans  CPDIR -en plus de 
informations. 


quelques autres 


Muni de ces renseignements, je vous laisse 
apporter toutes les modifications souhaitables à 
ce programme. Bon courage ! 


01* LBL "COMPTE" 
02 CF 27 
03 4 

04 PSI2E 
05 DMY 

06 DATE 

OF °LE:." 
08 FIX & 
09 ADATE 
10"E 2?" 
11 PROMPT 
12 SETDATE 
13 70 

14 "CPOIR" 
15 SF 25 
16 FLSI12E 
17 FC? 25 


Mise à jour de la date. 


DIRECTORY de tous les 
fichiers créés à ce jour. 


SE 


18 CRFLAS 
19 FC? 2 
20 UNSEC 
21 FC? 25 
22 GETAS 
23 10 

24 SF 25 
5 "CPBUF" 
26 CRFLAS 
Cr 
28 "MENU(O/N)?" 
29 AVIEW 
30 GETKEY 
31 41 

32 X=Y? 

33 GTO A 


34* LBL "MENU" 
35* LBL 82 

36 ADV 

37 "O= MENU" 
38 AVIEW 

39 PSE 

40 "1= INTRO" 
41 AVIEW 

42 PSE 

43 "2= RECHERCHE" 
44 AVIEW 

45 PSE 

46 "3= LECTURE" 
47 AVIEW 

48 PSE 

49 "4= OUV. FICH' 
50 AVIEW 

51 PSE 

52 "5= EFFACE" 
53 AVIEW 

54 PSE 

55 "ON= FIN" 

56 AVIEW 

57 PSE 

58 ADV 


59* LBL A 

60 "CODE OP 7?" 
61 AVIEW 

62 ADV 

63 RCL b 

64 GETKEY 

65 SF 25 

66 X#07? 

67 GTO IND X 
68 RDN 

69 STO b 


70* LBL "FL?" 
71 FIX & 


BUFFER qui contiendra Le nom 
des fichiers appelés durant 
l'éxécution. Voir "FIN". 


( hr MENU rx ) 


1- Introduire un chèque 


2- Rechercher " 


3- Lire un fichier 


&- Ouvrir un fichier 


5- Effacer un enregistremt. 


ON- Terminer 


( Gestion du menu ) 


Pointeur de programme 


ON KEY GOTO ... 


GTO 63 


C *r* FILE? *k* ) 


7è 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 


SF 28 
SF 29 
CLA 
ADATE 
RDN 
ANUM 
INT 
Sir D 
E4 
ST* L 
X<> L 
CLA 
CF: 
FIX O 
ARCL X 
XEQ F 
FS?C 25 
RTN 
PURFL 
ASTO X 
OPER FL: 
ARCL X 
PROMPT 
GTO A 


96* LBL F 


97 

98 

99 
100 
101 
102 
103 
104 
105 
106 


107 


CF 05 
SF 25 
FLSI12E 
FS? 25 
RTN 

SF 05 
70 
CRFLAS 
SF 25 
GETAS 
RTN 


108* LBL "INTRO! 
109* LBL 72 


110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 


DATE 

CF 22 
NDATE(D ,MYY)?" 
PROMPT 
FC? 22 
GTO A 
XEQ "FL?" 
XEQ a 

CLX 
"CPBUF"! 
SEEKPTA 
CLA 

ARCL 03 
R* 

STO 01 
POSFL 
X<0? 





Partant d'une date exprimée 
en X (D,MY) établit Le nom 
du fichier en ALPHA et tente 
de le charger s'il n'est pas 
en mémoire. 


Fichier chargé ? 
oui : retour. 


non : message d'avertissemt. 


Retour au menu 

Tente de rappeler le fichier 
depuis La mémoire de masse 
s'il n'est pas en mémoire. 
sortie : 


SF25 -> OK 
CF25 -> “File Not Found! 


( *** INTRODUCTION *** ) 
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127 APPREC 


128 CLX 
129 SEEKPTA 184* LBL "RECH" ( *** RECHERCHE *** ) 
130 SF 29 185* LBL 73 
131 "NUM. CHEQUE 7" 186 FIX 2 
132 PROMPT 187 CF 22 
133 STO 02 188 SF 29 
134 CLA 189 "NUM CHEQUE 7" Par Mo ? 
135 CF 29 190 PROMPT 
136 ARCL X 191 FS? 22 
TE 192 GTO 19 oui 
138 POSFL 193 "DATE(D,MYY)?" Par date ? 
139 X>0? 194 PROMPT 
140 GTO A 195 FS? 22 
141 ARCL O1 196 GTO 10 oui 
142 “fe 197 CF 23 
143 APPREC 198 AON 
144 FIX 2 199 "ORDRE?" Par ordre ? 
1845 STO 01 200 PROMPT 
146 "MONTANT 7?! 201 AOFF 
147 PROMPT 202 FC? 23 
148 CLA 203 GTO A non : GTO menu 
149 ARCL X 204 ASTO 00 
150 APPREC 205 ASHF 
151 "ORDRE 7?" 206 ASTO 01 
152 AON 207 "CPOIR" 
153 PROMPT 208 . 
154 AOFF 209 SEEKPTA 
155 APPREC 
156 RCL 02 210* LBL 46 
157 X=0? 211 FIX 0 
158 GTO 72 212 CF 29 
159 "CPDIR" 213 "“CPOIR" 
160 . 214 FLSIZE 
161 SEEKPTA 215 SF 25 
162 CLA 216 GETREC 
163 ARCL 03 217 FC?C 25 
218 GTO A 
164* LBL 07 219 ANUM 
165 POSFL 220 CLA 
166 SEEKPT èè1 ARCL X 
167 FRC 222 ASTO 03 
168 x#07? 223 XEQ F 
169 GTO 07 224 CF 25 
170 GETREC 225 CLA 
171 ASHF 226 ARCL 00 
172 ANUM 227 ARCL 01 ALPHA : ordre 
173 RCL 02 228 XEQ E 
174 X<=Y? 229 GTO 46 
175 GTO 72 
176 DELREC 230* LBL € 
177 CLA 231 XEQ "PR" 
178 ARCL 03 232 CLA 
Arr 233 ARCL 03 
180 FIX 0 234 FS?7C 05 
181 ARCL X 235 PURFL 
182 INSREC 236 RTN 
183 GTO 72 
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237* LBL 10 
238 XEQ "FL?" 
239 ASTO 03 
240 "," 

241 ARCL Z 
242 "1 F + 

243 XEQE 

244 GTO A 


245* LBL a 
246 ASTO 03 
247 "CPBUF" 
248 . 

249 SEEKPTA 
250 CLA 

251 ARCL 03 
252 CLX 

253 POSFL 
254 X<0? 
255 APPREC 
256 CLX 

257 FLSIZE 
258 RTN 


259* LBL 19 
260 "CPDIR' 
261 . 

262 SEEKPTA 
263 SF 25 


264* LBL 05 
265 GETREC 
266 FC? 25 
267 GTO A 
268 ASTO 03 
269 ASHF 
270 X<>Y 
271 ANUM 
272 X<Y? 
273 GTO 05 
274 CLA 

è75 ARCL 03 
276 XEQ F 
ét Fe 
278 FIX 0 
279 CF 29 
280 CLA 

281 ARCL Z 
282 XEQ E 
283 GTO A 


284* LBL "PR! 
è85 ASTO 00 
286 ASHF 

287 ASTO 01 
288 . 

289 SEEKPT 


Recherche par date. 


Ajoute un fichier au buffer. 


Recherche par numéro. 


Etablit Le nom du fichier 
susceptible de contenir 
ce chèque. 


( “"® IMPRESSION *°® ) 


ALPHA : chaîne recherchée. 
Si cette chaîne est trouvée 
dans un enregistrement, 
tous Les champs de cet enrg 


290 GETREC 
291 ASTO 02 


292* LBL 06 
293 CLA 

294 ARCL 00 
295 ARCL 01 
296 POSFL 
297 X<0? 
298 RTN 

299 XEQ "V' 
300 "WAIT" 
301 FC? 55 
302 AVIEW 
303 GTO 06 


304* LBL "Vv" 
305 SF 29 
306 CF 28 
307 XEQ 20 
308 GETREC 
309 ALENG 
310 9 
ste 

312 10°X 
313 ANUM 
314 ENTER” 


315 "NUM: 


316 INT 
317 ARCL X 
318 AVIEW 
319 FC? 55 
320 PSE 

set - 

ne" 

323 CF 29 
PCR PEE:- 
325 ARCL X 
326 " + ." 
327 ARCL 02 
328 AVIEW 
329 FC? 55 
330 PSE 

AT PES 
332 ARCLREC 
333 AVIEW 
334 FC? 55 
335 PSE 

336 "ORDRE :" 
337 AVIEW 
338 PSE 

339 GETREC 
340 AVIEW 
341 PSE 

342 ADV 

343 RTN 





sont affichés. 
Nom du fichier courant. 


Recherche La chaîne 


Pas trouvée |! 
Affichage 


Ç *#** VISUALISATION *** ) 
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344* LBL 20 399 GTO A 


345 INT 
346 DSE X 
367 "9 400* LBL "EFFACE" ( *** EFFACEMENT *** ) 
348 STO Y 401* LBL 63 
349 3 402 "DATE(D,MY)?" 
350 MOD 403 PROMPT 
351 - 404 XEQ "FL?" 
352 E 405 ASTO 02 
353 + 406 XEQ a 
354 SEEKPT 407 CLX 
355 RTN 408 SEEKPTA 
409 SF 29 
410 "NUM CHQ 7?" 
356* LBL "OUV" ( *** OUVERTURE *** ) 411 PROMPT 
357* LBL 62 412 CLA 
358 "MOIS" AN ?" 413 CF 29 
359 PROMPT 414 ARCL X 
360 FIX 0 415 POSFL 
361 CF 29 416 x<0? 
362 CLA 417 GTO A Pas trouvé. 
363 ARCL Y 418 XEQ “V" Visualise ce que l'on 
364 ARCL X . 419 "OK: <- NO: N!" va effacer. 
365 ALENG 420 AVIEW 
366 4 421 TONE 9 
367 - 422 GETKEY 
368 X>0? 423 44 
369 GTO 62 &2k X 
370 SF 25 Y? Confirmé ? 
371 ASTO 03 425 GTO A Non 
372 XEQ F 426 RCLPT 
373 FS?C 25 427 XEQ 20 
374 GTO 08 428 "EFFACE" 
375 APPREC 429 AVIEW 
376 CREATE 430 TONE 0 
377 "CPDIR" 431 DELREC 
378 FLSIZ2E 432 DELREC 
379 CLA 433 DELREC 
380 ARCL 03 434 GTO A 
381 "+ 0" 
382 APPREC 
435* LBL M"LECT" Ç( té LECTURE *** ) 
383* LBL 08 436* LBL 74 
384 "CPBUF" 437 CF 29 Affichage d'un mois entier, 
385 . 438 FIX 0 c.à.d. d'un fichier complet. 
3846 SEEKPTA 439 "MOIS" AN ?' 
387 CLA 440 CF 22 
388 ARCL 03 441 PROMPT 
389 POSFL 442 FC? 22 
390 x<0? 443 GTO A 
391 APPREC &u4 CLA 
392 "FL ” 445 ARCL Y 
393 ARCL 03 446 ARCL X 
394 "+ OPEN" 447 ASTO 02 
395 AVIEW 448 XEQ F 
396 TONE 9 449 FC? 25 
397 ADV 450 GTO 74 
398 PSE 451 . 
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452 SEEKPT 


453* LBL 36 
454 RCLPT 
455 INT 

456 1 

457 + 

458 SEEKPT 
459 FC? 25 
460 GTO 00 
461 XEQ "V'! 
&62 CLD 

463 GTO 36 


&64* LBL 00 
465 CLA 

466 ARCL 02 
467 FS?C 05 
468 PURFL 
469 GTO A 


&70* LBL "FIN" 
471* LBL 01 
472 "W: FL->DRIVE" L'emploi d'un drive est 
473 AVIEW nettement conseillé ! 
474 MCPDIR" 

475 SAVEAS 

476 SEC 

477 PURFL 

478 CLX 

479 "CPBUF" 

480 SEEKPTA 

481 SF 25 


( *** NETTOYAGE *** ) 


482* LBL 26 
483 GETREC 
484 FC? 25 
485 GTO 09 
486 SAVEAS 
487 PURFL 
488 "CPBUF! 
489 FLSIZE 
490 GTO 26 


491* LBL 09 

492 PURFL 

493 TONE O0 

494 CLA 

495 PCLPS 

496 END Total : 1150 octets. 








NAVIGUER SUR HP-41 


Voici trois petits utilitaires qui vous 
faciliteront grandement l'utilisation intensive 
du module navigation du HP-41. 


Programme "ROM! 


ROM! permet de rentrer dans le programme SIGHT 
du module navigation, et d'accéder directement à 
la question : HS? shuntant Les questions DRL?, 
RLO?, DATE?, TIME? et HE?. 


Ces questions sont lentes et, lorsque l'on fait 
plusieurs observations consécutives, les 
réponses sont identiques. 


Listing : 


O1*LBL "ROM! 

02 SF 01 

03 X<> a 

04 X<> \ 

05 CLX 

06 RCL b 

07 FC?2C 01 

08 GTO 00 

09 STO [ 

10 MCE 

11 X<> [ 

12 X<> \ 

13 Xe> ! position du module navigation 
14" 9" Port 1 

15 "n Port è 

16" Port 3 

17e Port #4 

Bb " Codes des lignes synthétiques : 
LS in 14: 243-127-153-229 

20 X<> ] 15: 243-127-185-229 

2 th ++ 16: 243-127-217-229 

22 STO I 17: 243-127-249-229 

23 En 

24 X<>] Le reste du programme est tiré de 
25 X<> a ISynthetic programming on the HP41C! 
26 X<> \ Dr. Wickes 

27 STO b 

28*LBL 00 

29 X<> \ 

30 CLA 

31 END 
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Mode d'emploi 


- Charger Le programme (lire La carte magnétique) 
. Effacer trois des quatre lignes 14-15-16-17, 
pour ne lsisser que la ligne correspondant au 
port dans lequel est enfiché Le module Navigation. 
. faire "XEQ ROM' et La question HS? apparait... 


ASIGHT ou Automatique SIGHT 


Cette routine permet de faire un point d'étoile 
sans avoir à répondre plusieurs fois aux 
questions initiales du programme SIGHT du module 
navigation. 

Pour le chargement se référer à l'article 


ci-dessus sur Le programme ROM. 


Utilisation : 

Faire XEQ M"ASIGHT! une fois, et c'est le 
programme SIGHT du module navigation qui va être 
exécuté, le flag 20 sera levé. 

Faire XEQ "ASIGHT" Les fois suivantes, et il 
n'y aura plus besion de rentrer La position 
estimée ainsi que La hauteur de l'oeil. 


Tant que le flag 20 est levé, c'est le 


programme “racourci" qui s'exécute. Pour 
abaisser le flag 20, faire soit : 

+ CF 20 

- OFF suivi de ON 
en effet, le fait d'arrèter la machine remet le 


flag 20 à zéro. 


Listing : 


O1*LB8L "ASIGHT! 
02 FS? 20 

03 GTO 00 

04 SF 20 

05 XROM "SICGHT'" 
06*LB8L 00 

07 XROM "D+T" 
08 SF 01 

09 X<> a  , 

10 Xe> \ | 

11 CLX 

\2 RCL D 

13 FC?C 01 

14 GTO 00 

15 STO 

jé np transe 
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———_—_————_—_—_—_—_———————<—— 


17 Xe> ! 

18 X<> \ 

19 Xe> ! position du module navigation 
20" " Port 1 

ARR, Port 2 

22" Port 3 

_. Port #4 

6 “he: w Codes des lignes synthétiques : 
25 X<> * 20: 243-127-153-229 
26 X<> ]) 21: 243-127-185-229 
Er pren 22: 243-127-217-229 
è8- STO [ 23: 243-127-249-229 
29 “pee 

30 X<>) 

31 X<> a 

32 X<> \ 

33 STO b 

34*L8L 00 

35 X<> \ 

36 CLA 

37 END 


Date et Heure Automatique 


Ce programme remplace le programme D+T du 
module NAVIGATION en utilisant le module TIME, 
ce qui évite de 
éventuellement l'heure. Ceci supprime Une  SOUTCE 


rentrer La date et 


d'erreurs et apporte un gain de temps appréciable. 


Ce programme teste Le flag 02. Si ce flag est 
baissé, Le programme rentrera la date du jour et 
demandera l'heure. On pourras alors rentrer une 
heure quelconque, ou simplement appuyer Sur RUN 
sans faire d'entrée numérique. Le programme 


stockera alors l'heure courante. 


Si Le flag 02 est levé, alors rien n'est changé 
dans l'exécution de D+T. Le programme utilisé 
sera celui du module NAVIGATION. Le flag 02 sera 
donc levé quand La date à 
différente de celle du jour, dans le cas par 


rentrer sera 


exemple d'observations astronomiques faites aux 
environs de minuit T.U. et calculées plus tard. 


Ce programme laisse la date aux format MDY. Si 
l'autre format, il suffit 


d'introduire l'instruction DMY après La ligne 09. 


VOUS utilisez 


ATTENTION : Ce programme suppose que l'horloge 
est reglée en permanence sur l'heure T.U. ce qui 
est pratique en navigation. 


Listing : 


O1*LBL "D+T" 
02 FS? 02 

03 XROM "D+T!'"' 
04 FS? 02 

05 RTN 

06 SF 21 

07 MDY 

08 DATE 

09 STO 30 

10 "TIME= 7?" 
11 CF 22 

12 PROMPT 

13 FC?C 22 
14 TIME 

15 HR 

16 STO 34 

17 END 


Utilisation : Charger Le programme, et il 
s'exécutera automatiquement à La place de celui 
du module. (Il prend une 1/2 carte magnétique). 


Nota : La Ligne 03 (XROM "D+T!) s'obtient en 
faisant XEQ M"D+T" à condition qu'il n'existe 
aucun Label "D+T" dans La mémoire vive. IL faut 
donc écrire La ligne 03 avant la ligne 01. 


François LE GRAND 


CALCULS DE PH AUTOMATIQUE 


Nous ne prétendons pas faire ici une étude 
des méthodes de résolution des 
de calculs de pH. Nous 


exhaustive 
problèmes 

simplement vous présenter un programme qui 
permet de calculer Le pH de fort nombreuses 
solutions. Nous n'allons pas, de ce fait, vous 
décrire en détail La méthode utilisée Lors du 
calcul. 


allons 


Néanmoins ceux qui désireraient en 
savoir plus à son propos n'auront qu'à nous 
contacter. Sachez seulement qu'elle revient à 
trouver une concentration en ions H+, telle que 


l'équation d'électro-neutralité soit vérifiée. 





DESCRIPTION GENERALE DES PROGRAMMES POUR HP-41 
ET HP-71. 


On vous demande le nombre de  polybases, 
c'est-à-dire Le nombre d'espèces chimiques 
“acido-basiquement" indépendantes présentes dans 
la solution considérée. Exemples: 


Na+, K- comptent chacun pour une pol ybase : 


H2S04, HSO4- et SO4-- comptent pour une seule 
et unique polybase (à savoir SO4--). Néammoins, 
il faudra tenir compte, par la suite, de la 
concentration 
espèces. 


de chacune de ces différentes 


On demande par la suite Le nombre de protons 
acceptés par chacune des polybases. Exemples: 


formes 
acido-basiques “extrêmes! de cette polybase sont 
H2S04 et S04--. 


SO4 - - accepte deux protons car Les 


NH3 accepte un proton, les formes “extrêmes! 
étant ici NH&+ et NH3. 


Mais on doit aussi faire intervenir Les ions 
indifférents. A cette fin, il est nécessaire de 
Les considérer comme des espèces acido-basiques 
à part entière. On dira à cet effet qu'il 
peuvent accepter un proton (UN !). 


On rentrera ensuite la 
polybase. Exemples: 


charge de chaque 


SO4-- a une charge égale à -2. 
Na+ a une charge égale à +1. 


NH3 a une charge nulle. 


Reste à entrer les concentrations des espèces 
effectivement mises en solution; puis Les pK de 
chacunes des polybases, sachant qu'on prendra 
par convention -6 pour les acides forts et les 
ions  indifférents, car ils sont (presque) 
entièrement rentrera Les 
concentrations, pour chaque espèce appartenant à 
une  polybase donnée, par ordre d'acidité 
croissante. 


dissociés. On 


Reste alors à La HP-41, ou au HP-71, à calculer 
Le pH proprement dit. La 41 utilise La fonction 
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SOLVE du tout nouveau module HP-41 ADVANTANGE, 
ainsi d'ailleurs que Les fonctions matricielles 
de ce même module. Le 71, quant à lui, utilise 
La méthode de NEWTON. Celui qui possède le 
module Math aura, bien sûr, tout intérêt à 
employer La fonction FNROOT. 


Exemple: 


On met dans un litre d'eau: 
0.1 mole de H2S04 

0.1 mole de NH3 

0.1 mole de NaHCO3 


IL y 8 donc quatre polybases: 


Polybase Proton ac. Charge 
SOé - - è 2 
NH3 1 0 
CO3-- è -2 
Na+ 1 +1 


Les concentrations à entrer sont les suivantes: 


Protons 0 1 è 
Polybase 
SO4 - - 0.0 0.0 0.1 
NH3 0.1 0.0 . 
CO3- - 0.0 0.1 0.0 
Na+ 0.1 0.0 .. 


Les pK à entrer sont les suivants: 


Protons 0 1 2 
Polybase 
SO& - - 1.9 -6.0 
NH3 9.2 .… 
C03-- 10.3 6.2 
Na+ -6.0 .. 
Le résultat est donné sous La forme: 4.08 . On 


prendra donc 4.1 comme pH. IL faut environ 10 
minutes à une 41 pour le trouver; beaucoup moins 
pour le 71. ‘ 


Bon calcul (calculs ?) de PH. 


Lt La 41 vérifie La neutralité de la 
solution, avant l'entrée des pK, ce qui est 
aussi plus Long que sur le 71. 


Francis FRIESSE 
Jean-Jacques MOREAU 
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PROGRAMME DE CALCUL DE PH SUR HP-41 


O1*LBL "CPH" 


02 "Nb POLYBASE?" 


03 PROMPT 
04 1 E3 

05 / 

06 1 

07 + 

08 STO 00 
09 STO 11 
10 FIX 0 
11 CF 29 
12*L8L 01 
13 “J" 

14 ARCL 11 
15 PROMPT 
16 1 E3 

17 / 

18 STO IND 11 
19 1SG 11 
è0 GTO 01 
è1 RCL 00 
ce 510 21 
23*L8L 02 
è4 "CH" 

25 ARCL 21 
è6 RCL 21 
27 10 

28 + 

29 PROMPT 
30 STO IND Y 
31 1SG 21 
32 GToO 02 
33 "R31" 
34 10,005 
35 MATDIM 
36 RCL 00 
37 STO 82 
38*L8L 03 
39 RCL 82 
4Q INT 

41 MSIJ 

&2 RCL IND 82 
43 STO 83 
&&*LBL 04 
«5 "C'" 

46 ARCL 82 
1,7 
48 RCL 83 

49 INT 

50 ARCL X 
51 CLX 

52 PROMPT 
53 MSR+ 
54 1SG 83 
55 GTO 04 


mr 


56 ISG 82 
57 GTO 03 
58 RCL 00 
59 STO 82 
60 CLX 

61 STO 84 
62*LBL 05 
63 RCL 82 
64 INT 

65 MSIJ 
66 RCL IND 82 
67 STO 83 
68*LBL 06 
69 10 

70 RCL 82 
71 + 

72 RCL IND X 
73 RCL 83 
74 INT 

75 + 

76 MRR+ 
fr" 

78 ST+ 84 
79 1SG 83 
80 GTO 06 
81 ISG 82 
82 GTO 05 
83 RCL 84 
84 X#07? 
85 GTO 99 
86 RCL 00 
87 STO 82 
88*LBL 07 
89 RCL 82 
90 INT 

91 MSIJ 
92 RCL IND 82 
93 STO 83 
94 CLX 
95*LBL 08 
96 MRR+ 
97 + 

98 ISG 83 
99 GTO 08 
100 RCL 82 
101 20 

102 + 

103 X<>Y 
104 STO IND Y 
105 ISG 82 
106 GTO 07 
107 RCL 00 
108 STO 82 
109*LBL 09 
110 RCL 82 
111 INT 
112 MSIJ 
113 RCL IND 82 


114 1 

115 + 

116 STO 83 
117 1 

118 MSR+ 
119*LBL 10 
120 "pK! 
121 ARCL 82 
122 ,n 
123 ARCL 83 
124 PROMPT 
125 CHS 

126 10°X 
ter * 

128 MSR+ 
129 1SG 83 
130 GTO 10 
131 1SG 82 
132 GTO 09 
133 "PH? a°b" 
134 PROMPT 
135 CHS 

136 10"X 
137 X<>Y 
138 CHS 

139 10"X 
140 "FpH" 
141 FIX 2 
142 SOLVE 
143 LOG 

144 CHS 

145 "PH=" 
146 ARCL X 
147 TONE 8 
148 PROMPT 
149 STOP 
150*LBL “#FPpH" 
151 STO 87 
152 RCL 00 
153 STO 82 
154 CLX 

155 STO 84 
156*LBL 11 
157 RCL 82 
158 INT 

159 MSIJ 
160 10 

161 + 

162 RCL IND X 
163 STO 86 
164 RCL IND 82 
165 STO 83 
166 STO 88 
167 CLX 
168*LBL 12 
169 RCL 87 
170 RCL 83 
171 INT 
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172 Y°X 
173 LASTX 
174 RCL 86 
War 

176 * 

177 MRR+ 
178 / 

179 + 

180 1SG 83 
181 GTO 12 
182 STO 85 
183 RCL 82 
184 20 

185 + 

186 RCL IND X 
187 ST* 85 
188 RCL 82 
189 INT 
190 MSIJ 
191 CLX 
192*L8L 13 
193 RCL 87 
194 RCL 88 
195 INT 
196 Y°X 
197 MRR+ 
198 / 

199 + 

200 1SG 88 
201 GTO 13 
202 RCL 85 
203 X<>Y 
204 / 

205 ST+ 84 
206 1SG 82 
207 GTO 11 
208 RCL 84 
209 RCL 87 
210 + 

211 1 E-14 
212 LASTX 
215 

214 - 

215 RIN 
216*LBL 99 
217 MNEUTRALITE" 
218 PROMPT 
219 END 
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UN LEX DECHAINE Le "EDIT Fi" rend le fichier Lex F1 "fichier 
courant". Le "MERGE F2" réunit Le fichier F2 
dans Le fichier F1. Le M"MERGE F3" réunit le 
fichier F3 dans Le fichier F1 (qui est 

Vous vous souvenez peut-être du programme de maintenant F1 + F2). 

chainage de Lex de Michel, paru dans JPC No 23 

(avril 1985). Ce programme, rédigé en Basic et Le "EDIT" final remet le "workfile" comme 

utilisant l'ordre POKE déprivatisé, permettait fichier courant. 

de réunir plusieurs Lex en un seul fichier. 
IL ne reste plus qu'à purger éventuellement F2 
et F3 qui restent en mémoire, comme apres un 

PRESENTATION MERGE normal de programmes Basic ou de fichiers 

Keys. Et tout c'est passé si vite que vous 
n'avez pas eù Le temps de Le voir... 

Cette technique a plusieurs avantages. Le 

premier d'entre eux est la diminution du nombre 

de fichiers à charger ou à déplacer pour une ATTENTION ! 

application donnée. Un programme Basic qui 

utilise une floppée de Lex n'en a plus qu'un 


seul à charger. Diminution du temps de Le principe de l'opération est d'autoriser 
chargement, diminution de La taille du Basic, l'édition d'un fichier Lex. Il y a un effet 
simplification globale. secondaire pervers, qui peut se révéler génant. 
Pour cette raison, il ne faut JAMAIS PURGER LE 
Le deuxième avantage est La diminution de la FICHIER LEX COURANT ! 
taille du fichier. Sachant que chaque fichier 
Lex comporte un en-tête de 18 octets et demi, n IL semblerait qu'il y ait une bogue quelque 
fichiers Lex auront (n-1) en-têtes inutiles. Le part. L'ordre Basic PURGE aurait une attitude 
chainage les élimine. étrange face à un fichier courant de type Lex. 
IL ne remet pas le pointeur de fichier courant 
Attention toutefois : ce chainage ne fait que dans Le "workfile", Ceci conduit à des "CAT" 
réunir des Lex (pris en tant qu'entité) en un bizarres. Un simple "EDIT" suffit généralement à 
seul fichier. Ce n'est pas un rassemblement de s'en sortir... 


foonctions Basic en un seul Lex. Ceci permet 
donc de chaîner des Lex d'Iid différents, avec 
des tokens non consécutifs ; en revanche, le THÉORIE DU CHAINAGE 
chainage n'apporte pas les avantages de la 
fusion de Lex : plus grande rapidité du HP71 qui 


n'a plus qu'une seule entité à examiner et à Le chaïinage de Lex consiste à mettre bout à 
interroger. bout plusieurs Lex dans un seul fichier. Le 

système d'exploitation du HP71 a prévu Ça, 
Il faut bien comprendre, en effet, que le puisqu'il utilise à cette intention le champ 
chainage n'est que La mise bout à bout de “Next Lex-table offset" des fichiers Lex. Si ce 
plusieurs fichiers, en enlevant Les en-têtes champ vaut 0, il n'y a qu'un seul Lex dans Île 
inutiles. Rien de plus. Un peu comme si, en fichier. Si, au contraire, cette valeur n'est 
Basic, vous réunissiez plusieurs sous-programmes pas nulle, elle représente l'adresse relative du 
(SUB) en un seul fichier. Lex suivant dans le fichier. Il n'y a donc pas 


de Limitation quant au nombre de Lex dans un 
fichier. 
MODE D'EMPLOI 
En quelques mots, le chainage de F1 avec F2 se 
résume à créer un espace vide derrière Fi, 


Elémentaire : vous désirez réunir les fichiers ajuster La taille de F1 en conséquence, amener 

F1, F2 et F3 dans le fichier F1. Faites : F2 dans cet espace, et parcourir La liste des 
Lex constituant F1 jusqu'à trouver une entrée 

EDIT F1 nulle. Il suffit alors d'écrire à cette adresse 

MERGE Fa l'adresse relative de cet espace (c'est à dire 

MERGE F3 de F2). Voilà, c'est terminé... 

EDIT 


_— CE ee I > 


FONCTIONNEMENT 


Voyons maintenant comment tout cela fonctionne : 
ce Lex ne contient pas de mot-clef. Tout est 
fait par polis. 


Le premier autorise l'ordre EDIT sur les 
fichiers Lex. Ceci est La première étape. 


Le deuxième est envoyé lorsque Le HP71 se rend 
compte qu'il a affaire à un MERGE sur un fichier 
qu'il ne sait pas "merger". Le contrôle nous est 
alors donné, et c'est Là qu'est effectué le 
chaînage proprement dit. 


Notons que Le poll d'édition pourrait être 
réutilisable pour d'autres usages. On pourrait 
penser, par exemple, à intercepter Le poll de 
touches de curseur pour examiner Les tokens d'un 
fichier Lex. Avis aux amateurs... 


Note  subsidiaire : Les lecteurs attentifs 
verront qu'aucune configuration n'est demandée 
dans Le Lex. Ceci ne pose aucun problème puisque 
F2 est toujours présent en mémoire. Ces mêmes 
lecteurs attentifs comprendront que ce ne sera 
pas Le Lex F2 réuni dans F1 qui sera pris en 
compte, mais Le Lex F2 qui est resté intact 
après Le MERGE, et ceci jusqu'à La prochaine 
configuration. Bien. Aucune autre question ? 
Bon, alors... 


CONCLUSION 


Nous espérons que ce Lex vous servira pour deux 
usages : Le premier, et c'est Le but originel, 
pour chaîner des Lex ; le deuxième pour en 
comprendre Le fonctionnement. C'est en effet un 
Lex  ‘“extrèmement simple". IL n'y a pas 
d'utilisation intensive de routines HP rendant 
Le code illisible pour qui n'a pas les IDS. Dans 
l'ensemble, il n'y a que 
pointeurs. À vous d'en tirer profit... 


manipulation de 


En souhaitant avoir Le plaisir d'éplucher vos 
réalisations, 


A bientôt, et 
Heureuse Programmation 


Pierre David (P37, SIG1, CHHU616) 
Michel Martinet (P12, SIG2, CHHU617) 





LEX 'CLLEX' 


PT TILILILILILILLLIILLLILLLLLL LL LL LL LL Li iii iiiiiiii:::: 


* 


* EDIT F1 
+ F1 LEX 2326 01/01/00 00:00 
* MERGE F2 


* 


de de de ie ie he me de de me de de de ee de ee ee ee or fe ee or ee ee or le ee or ee fe eve ee D he he ee he 


CON(2) #E1 Id 

CON(2) 255 Lowest Token 

CON(2) 0 Highest Token 

CON(5) 0 Next Lex-table offset 
NIBHEX F No speed table 


REL(4) 1+TxTbSt Offset to text table 
CON(4) 0 
REL(5) POLHND 


No message 
Offset to poll handler 
TxTbSt 

NIBHEX 1FF Text Table End 
fLEX EQU #E 208 
PEDIT EQU #2B 
PMRGE2 EQU #2F 


Type de fichier = LEX 


CURRST  EQU #2F550 Adresse fichier courant 
eFPROT EQU #30 MERR: File Protect 
PSHUPD EQU #08F0D 

POPUPD EQU #O8F3E 

MGOSUB  EQU #1AF01 

MVMEM+  EQU #0133C 

MOVEU3  EQU #18177 

BSERR  EQU #0939A 


LEX? LC(S5) =fLEX 


?A=C LI 
RTNYES Retour avec Cy=1 si Lex 
RTN Retour avec Cy=0 sinon 


POLHND LC(2) =pEDIT 
?C=B B 
GOYES hEDT10 
LC(2) =pMRGEZ 


?7C=B B 
GOYES hMRG10 
RTNSXM Poll non reconnu 


hEDT10 GOSUB LEX? Fichier Lex ? 
GOC hEDT20 Oui. On autorise EDIT 
RTNSXM 
hEDT20 RTNCC 


Non. On ignore 
Cy=0, pas d'erreur 


P=0 

D1 = * en-tête de F2 
A(A) = type de F2 
CURRST = * en-tête de F1 


6 #4 + *# + * 
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hMRG10 GOSUB LEX? F2 = LEX ? , 


GOC hMRG20 oui * 01 = * FILEND de F2 
RTNSXM non * B(A) = A(A) = Longueur exacte de ce qu'on ajoute 
. * RO = * FILEND de F1 
* F2 est bien du type LEX * R1 = * en-tête de F2 
* * R2 = Longueur exacte de ce qu'on rajoute 
hMRG20 D1=D01+ 16 ” 
D1=D1+ 4 D1 := * protection de F1 A=RO DO := * FILEND de F1 
A=DATI P DO=A ns 
D1=D1- & C=R2 RSTK := taille à ajouter 
D1=01- 16 RSTK=C : 
LC(1) 2 C=A Ë RSTK := * FILEND de F1 
A=A&C P RSTK=C : 
?A#0 P A=DATO A AC(A) := taille de F1 
GCYES fprot CDOEX C(A) := * FILEND de F1 
» DO=C : 
* F2 n'est pas privé C=C+A A C(A) := * fichier apres F1 
° DO=D0- 16 DO := * en-tête de F1 
D0O=(5) =CURRST CURRST = adresse de F1 D0=D0- 16 : 
C=DATO A ADOEX A(A) := * en-tête de F1 
DO=C DD 2" Fr ACEX ë 
D0O=D0+ 16 DO := type de F1 R3=A Sauvegarde de la fin de F1 
A=0 Ë . 
A=DATO & A(A) := type de F1 * ACA) = * fin du fichier F1 
GOSUB LEX? * B(A) = longueur à déplacer 
GOC hMRG30 * C(A) = “ en-tète de F1 
RTNSXM F1 n'est pas un LEX ® 
> GOSBVL =MGCSUB 
* F1 est bien du type LEX CON(S) =MVMEM+ 
: GONC hMRGS9 
hMRG30O D0=00+ & DO := * protection de F1 bserr  GOVLNG =BSERR 
A=DATO S ” 
2A=0 S * A ce stade, un trou a été créé à La fin de F1 
GOYES hMRG3S * pour y loger F2. Le travail suivant consiste 
* à y amener F2. 
fprot LCC(4) =eFPROT File protect * Note pour la compréhension générale : le 
GOTO bserr * fichier F1 n'a pas bougé. Seul F2, peut-etre... 
- * C'est la raison pour laquelle seule l'adresse 
* Fi n'est ni privé, ni sécurisé * de F2 a été placée dans La pile des GOSUBS. 
+ * 
hMRG35S  AD1EX R1 := D1 (* en-tête de F2) hMRGSO C=RSTK CCA) := * FILEND de F1 
R1=A : RO=C RO := * FILENO de F1 
DO=D0+ 12 DO := * FILEND de F1 C=RSTK C(A) := taille de F2 
COOEX RO := DO (” FILEND de F1) R2=C R2 := taille de F2 
RO=C GOSBVL =POPUPD l'adresse de F2 
COSBVL =PSHUPD adr. de F2 à réactualiser C=0 à 
A=R1 A(A) := * en-tête de F2 R1=C R1 := * FILEND de F2 
C=0 ë : 
LC(2) 32 Offset de FILEND * RO = * FILEND de F1 
A=C+A À * R1 = * FILEND de F2 
D1=A D1 := * FILEND de F2 * R3 = “ début du trou (* fin de F1) 
A=DATT A Taille de F2 . 
LCC2ÿ 5 * Déplacement du fichier à merger. 
A=A-C A Taille de F2 - 5 ° 
B=A h C=R3 
R2=A D1=C D1 := Start of dest. 
C=0 “ 
LC(C2) 37 


RE ep 


+ *  * 


Le 


A=R1 

A=A+C A 

DO=A DO := Start of source (F2) 
C=R2 Block length (long. de F2) 
GOSBVL =MOVEU3 


Une partie du fichier F2 a été maintenant amenée 
dans Le trou laissé à La fin de F1. Il ne reste 
plus qu'à actualiser Le chaïnage des Lex, et ce 


* sera terminé 


C=RO C(A) := * FILEND de F1 
DO=C 
DO=D0+ 11 DO := * Lex Chain 


GONC  hMRG70 B.E.T. 


* La boucle suivante parcourt La "Llex-chain" 
* jusqu'à trouver une entree nulle, signifiant 


* ainsi 


La fin de La recherche. Le dernier lex 


* de F1 est trouvé. 


* 


hMRG60 


hMRG70 


# 


M 


CDOEX CCA) := * Lex-Chain 
C=C+A A 

DO=C 

D0=D0+ 6 DO := Next-Lex du suivant 
A=DATO A 

?A#0 A 


GOYES  hMRG60 


La boucle est terminée, DO pointe sur le 
"Next-Lex offset" du dernier Lex de F1 


ADOEX AÇA) := * next-lex 

DO=A 

C=R3 Adresse de La fin de F1 
C=C-A A Offset dernier Lex-Chain 
DATO=C A Actualisation 


* Retour à l'appelant, avec La saine sensation 


* 


du travail bien fait. Alléluia ! 


XM=0 
RTNCC 


END A bientôt... 








LA FONCTION "POSI" 


La fonction POS permet de rechercher un 
caractère donné dans une chaîne alphanumér ique. 
Cependant il arrive que l'on ait à localiser non 
pas un caractère, mais Le premier d'un ensemble 
donné. recherchez la première 


minuscule, Le premier code de contrôle, chiffre... 


Par exemple vous 


La fonction POSI pourvoit à ces éventualités 
dans La mesure où tous les caractères 
ont des codes ASCII consécutifs. 

localiser dans S$ Le premier 


recherchés 
Ainsi, pour 
code de contrôle, 
ferez-vous : 


POSI(S$,1,32), 

et pour localiser la première minuscule 
POSI(S$,NUM('a'),NUM('z')). 

Le principe consiste donc à n'indiquer que les 


bornes inférieure et supérieure de 
de recherche. 


l'intervalle 


Pourquoi n'ai-je pas choisi la 
d'énumérer une liste 7? Pour 
D'abord cette écriture, plus restrictive, est 
aussi plus Ensuite la 
utilisant une liste explicite comme 
de recherche a déja été écrite par HP, ce qui me 
semble un excellent motif ! 


possibilité 
deux raisons. 
concise. fonction 


intervalle 


Si mes explications vous paraissent 
clarté, reportez-vous aux exemples 
Le source de ce LEX. 


manquer de 
fournis avec 


Au plaisir de vous lire, 


Jean-Pierre BONDU (SIG 4, PPC 33) 


LEX "POSILEX"! 


ee ee de ee ee ee de ee ee er ee ee eee ee ee ee er ee ee ee le ee ee er Of 


* Nom: POSI ” 
* * 
* Syntaxe: POSI(CS,C1[,C2]) - 
* * 
* But: dans La chaîne C$, renvoie La position * 
* du premier caractère dont Le code ASCII 
* est compris entre C1 & C2. (C2=255 par défaut)* 
* Validité: O<z C1,C2 <=255 bd 
* * 
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* Exemples: 


- POSI("ABCdéc" ,NUM('0'),NUM('9')) --> 5  * 
; POSI("VIEKR',NUM('a'),NUM('z')) --> &  * 


PRM3 
PRM2 


RTL LILELLLELLLLELLLLLLLELLELLLLLLLLLRLRLRLRRLRRRLRELLRLLLE) 


RNDAHX 


RANGE 


PIPIS 


HOFLT 
CSLCS 


CSRCS 
FNRTN1 


IVAERR 


POSIe 


1D #E 
MSG () 
POLL 0 
EQU 89 
EQU #136C8 
* 
* 
EQU #1807C 
* 
* 
* 
EQU #C8038 
* 
EQU #1B318 
EQU 18435 
* 
EQU #18418 
EQU #CF216 
É 
EQU #0E920 
ENTRY POSIe 
CHAR #F 
KEY "POSI'! 
TOKEN t 
ENOTXT 
NIBHEX 884 
NIBHEX 23 
P=C 15 
?P= 3 
COYES PRM3 
A=0 A 
* 
A=A-1 B 
GOC PRM2 


D 


FO 


dépile un nombre réel et 
le convertit en hexa en 

A [A] 

teste Si AB] est compris 
ds l'intervalle 

C8) (borne inf) / C[(3-2) 
(borne sup) 

dépile une chaine : 
AfA]=longueur, Di=adresse 
AA) h -> AW] d flottant 
rotation de 5 digits vers 
La gauche du registre C 
idem à droite 

fin de routine : 
A(W)]=argument, D1 à MStack 


ARCUMENT NON VALIDE 


SEARCH 


une chaîne, 2 nombres 

è ou 3 arguments 

C(S]= nombre d'arguments 
3 arguments? 

ou 

le 3ème vaudra 255 
par défaut 

A{A]=OOCFF 

B:E:T: 


non: 


NOTFND 


* PCPARG dépile un nombre réel et vérifie qu'il 
* est compris entre O0 et 255, sinon ERReur 


PCPARG 


\ivaerr 


GOSBVL RNDAHX 


GONC ivaerr 

D1=D1+ 16 
v'° 

C=0 A 
Cac-1<8 
C=C-A À 
RTNNC 


GOVLNG IVAERR 
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A[A)]= nombre hexa 
erreur si négatif FND 
pointe l'argument suivant 


de la Math Stack 


C(A)= 255 
argument > 255 ? 


non: retour 


GOSUB 
RO=A 


POPARG 


GOSUB POPARG 


C=RO 
7A>C 
GOYES 
ACEX 


ASL 

* 
ASL 
A=C 
B=A 
GOSBVL 

* 
D1=D1- 
CO1EX 
D1=C 
C=C+A 
GOSBVL 
CO1EX 
D=C 


A=DAT1 
C=8 

* 
GOS8VL 

* 
GONC 
D1=01- 
CO1EX 
D1=C 
2C>D 
GOYES 

. 
A=0 
C=0 
GOSBVL 
D1=C 


* 


GONC 


ADIEX 
C=0 
GOSBVL 
D1=C 
A=A-C 


B 
FD1 
B 


A 
B 
A 
POP1S 


Ë 
CSLCS 


RANGE 


FND 


ë 
SEARCH 


ù 


“ 
CSRCS 


ENDF 


a 
CSRCS 


a 





A(A)]= 2ème argument 
C(A)= Îer " 


en entrée : 
A[B)=MAX(A,C) : C[B]=MIN 
A(3-2]= borne sup 

A [8] 
B(3-0]= intervalle 

A(A)= long, D1 à dernier 
caractere 


= borne inf 


CIA] à ler caractere 


CIA)] à dernier caractere 
D(9-0]= nb de contrôle : 
adr sup (9-5), adr inf 
(4-0) 

on commence la recherche 
à partir du er caractère 
(adr sup) 

D1= pointeur de chaine 
(adr sup en entrée) 


A(B)]= octet de la chaine 
C[A]= intervalle de 
recherche 

caractère dans 
l'intervalle ? 

ou) 

octet suivant 


pointeur > adr inf ? 
oui: on continue la 
recherche 


pas trouvé: on retourne Ù 


D1= adr inf= adr de base 
de la Math Stack 


fin 


trouvé: on va calculer la 
position du pointeur dans 
la chaine 

A[A)]= pointeur 


C[A)]= adr du ler caractere 


A=-A A AL[A]= adr sup - pointeur 
ASRB ACA]= ALCA]/2 (nb 

, quartets -> nb octets) 
A=A+1 A position [0...] -> 

* position [1...] 

ENDF GOSBVL HDFLT position : ALA] hex -> 

> décimal flottant en AW] 
C=A w 
D1=D1+ 2 


GOVLNG FNRTN1 renvoie C[W] au BASIC 


END 


LES MESSAGES D'ERREUR DU MODULE HPIL 


C'est Le moins que l'on puisse dire : ævec son 
module HPIL, notre bon vieux (pas encore 
vraiment) HP71B devient Le Contrôleur de boucle. 


En effet, Ce module contient un fichier LEX de 
16 ko rien que pour La gestion de L'HPIL, ce qui 
en fait un outil extrémement puissant. 


Le module fait exactement 16384 octets, c'est à 
dire qu'il ne reste mème pas un seul quartet de 
disponible dans La ROM. On comprend mieux 


maintenant pourquoi Les messages renvoyés par le 
module sont souvent répétitifs. Hewlett-Packard 
a dû ignorer des messages d'erreur pour pouvoir 
faire tenir La ROM IL dans un module de 16 ko. 


Je vous propose ce mois-ci un petit fichier LEX 
ne contenant que des messages. Ce 
contient 


fichier 
le jeu complet des messages HPIL. IL 
doit être placé en mémoire principale ou dans un : 
PORT(O.0x) pour se trouver devant La ROM HPIL. 
Voici la Liste des première 
position on trouve Le message de La ROM puis en 
deuxième position Le message du Lex : 


messages, en 


0 
O HPIL 


Message O0, il est utilisé par 
l'affichage des erreurs. 
Exemple:  HPIL ERR:Blank Medium 


le système dans 





1 ASSIGN 10 Needed 

1 ASSIGN 10 Needed 

Tentative d'exécution de LIST 10 sans ASSIGN 
10. Exécuter ASSIGN 10. 


3 Excess Chars 
3 Excess Chars 


Le HP-71 a trouvé plus 
attendait dans un ordre. 


de caractères qu'il en 
Vérifier la syntaxe. 


& Missing Parm 
& Missing Parm 
Un des paramètres requis 


pour l'ordre manque. 


Vérifier la syntaxe. 


5 Invalid Parm 

5 Invalid Parm 

Un des paramètres utilisé pour l'ordre n'est 
pas valide. Vérifier les paramètres. 


6 Invalid Expr 
6 Invalid Expr 


L'expression ne peut pas être évaluée à cause 
d'un type non valide (tel que 
d'une variable alpha à La place d'une valeur 
numérique). Vérifier l'expression. 


l'utilisation 


7 Syntax 
7 Syntax 


l'ordre. Vérifier 
la validité des 


Le HP-71 ne reconnaît pas 
l'orthographe des mots-clés et 
paramètres. 


16 File Protect 
16 File Protect 


Le fichier est sécurisé ou privé ; vous ne 
pouvez pas effectuer cette opération. Si le 
fichier est sécurisé, exécuter l'ordre UNSECURE. 


17 End Of Medium 
17 End of Medium 
Le fichier est 


trop grand pour l'espace 


disponible sur Le support ; le support est plein ; 


condition d'erreur d'entraîneur. Vérifier Le 
support  : recréer le fichier: compacter le 
support ; utiliser un autre support de mémoire 


de masse. 
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18 Invalid Medium 
18 Not LIF Format 


Le support n'est pas initialisé avec un format 
correct. Exécuter l'ordre INITIALIZE. 


19 Invalid Medium 
19 Disk Drive Error 


Le moteur de l'unité de stockage de masse ne 


fonctionne pas. support 


Vérifier que le 
(disquette ou cassette) n'est pas coincé. 


20 No Medium 
20 No Medium 


Le HP-71 ne trouve pas de support dans l'unité 
de stockage de masse. Vérifier que la porte est 
fermée : insérer un support. 


21 
21 Low Battery 


L'alimentation de l'unité de stockage de masse 
est défectueuse. Recharger ou 
batteries. 


changer Les 


22 File Not Found 
èè File Not Found 


Le fichier spécifié est absent ; le nom de 
fichier spécifié diffère de l'étiquette reçue de 
l'unité de stockage de masse. Vérifier Le 


catalogue et Le nom de fichier. 


23 Invalid Medium 
23 New Medium 


Ouverture et fermeture de la porte de l'unité 
de stockage de masse pendant une opération de 
stockage ou pendant l'exécution d'un ordre de 
positionnement du support. Le support est mal 
positionné : recommencer l'opération ou l'ordre. 
24 Invalid Medium 

24 Blank Medium 


Support neuf non initialisé. Utiliser l'ordre 
INITIALIZE. 


è5 Invalid Medium 
è5 Wrong dir # records 


Le nombre 
l'étiquette ne correspond pas au nombre réel 


d'enregistrements indiqué dans 


d'enregistrements sur Le support. Recommencer 


l'opération. Si vous obtenez La même erreur, 
initialisez le support (ordre INITIALIZE). 
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26 Invalid Medium 
26 Checksum 


Le microprocesseur de l'unité de stockage à 
détecté une erreur de somme de contrôle. Recréer 
le fichier. 


— 


28 Size of File 
è8 Size of File 


Fichier trop grand pour être stocké ou rasge.e 
d'une unité de stockage de masse. Ajouter ur 
module mémoire au HP-71 ou utiliser un autre 
support. 


29 
29 Write Protected 


Erreur réservée au lecteur de disquettes. La 
disquette se trouvant dans l'unité de mémoire de 
masse est protégée contre l'écriture. 


30 File Exists 
30 File Exists 


Le nom de fichier spécifié dans un ordre CREÂATE 
ou en destination d'un ordre COPY existe déjà. 
Supprimer l'ancien fichier ou changer Le nom de 
l'ancien ou du nouveau fichier. 


31 Directory Full 
31 Directory Full 


Le catalogue du support est plein. Supprimer 
les fichiers inutiles et compacter le catalosue 
ou Le support. 


32 Device Not Found 
32 Device Not Found 


L'unité bouc ie. 
Vérifier le spécificateur d'appareil ; verifier 
l'organisation du système ; exécuter RESTORE 10. 


demandée n'est pas sur La 


34 Device Hot Ready 
34 Device Not Ready 


Une unité n'a pas répondu (n'a pas envoye ce 
données ou n'a pas accepté le contrôle, par 
exemple). Vérifier le spécificateur d'unite ; 
vérifier l'unité ; exécuter RESTORE 10. 


35 Loop Broken 
35 Loop Broken 
Vérifier Les 


La boucle n'est pas fermee. 


connexions et que toutes les unites sont allumées. 


36 Message Error 
36 Too Many Frames 


Le HP-71 a reçu trop de messages. Recommencer 
l'opération. 


37 Message Error 
37 Frames Lost 


Message perdu à cause d'une retransmission trop 
lente. Recommencer l'opération. 


38 Message Error 
38 Frames Altered 
Message modifié pendant une 
Recommencez l'opération. 


transmission. 


39 Unexpected Message 
39 Unexpected Message 


Violation du (plusieurs 
émetteurs temps) : 
l'émetteur indique une erreur de transmission. 
Recommencer l'opération. 


protocole HP-IL 
étaient actifs en mème 


40 Message Error 
40 Too Many Frames 


Le HP-71 a reçu trop de messages. Recommencer 
l'opération. 


41 Invalid Mode 
41 Invalid Mode 


Tentative d'exécution d'un ordre de contrôleur 
lorsque Le HP-71 opère en tant  qu'unité. 
Vérifier Le mode (contrôleur ou unité) requis 
par l'ordre. 


42 Loop Broken 
42 Message Altered 


Le HP-71 a reçu un message partiel à cause 


d'une erreur de transmission. Recommencer 


l'opération. 


43 Loop Broken 
43 Loop Timeout 


Un message n'a pas parcouru La boucle pendant 
le délai d'attente specifié par STANDBY. Annulez 


les états récepteurs et recommencer l'opération. 


&4 System Error 
44 Bad Addresses 


Adresses d'unités probablement non valides (si 





l'indicateur -24 est armé). Effacer l'indicateur 
-24 ou affecter de nouvelles adresses (exécuter 
RESTORE 10). 
Erreur interne concernant Les 
d'entrée/sortie. Exécuter RUN et recommencer 
l'opération ; exécuter INIT:2 ; exécuter INIT:3. 
Si l'erreur se maintient, l'interface HP-IL est 
défectueuse et doit être réparée. 


Canaux 


45 Self-test failed 
45 Self Test Failed 


L'interface n'a pas passé son  auto-test 
interne. Répéter l'auto-test en exécutant RESET 
HPIL. Si l'erreur persiste, L'interface est 
défectueuse et doit être réparée. 


47 Device Type 
47 Device Type 


L'unité spécifiée n'est pas du type correct 
pour cet ordre. Vérifier le type l'unité adressée. 


52 Aborted 
52 Aborted 
Vous avez appuyé sur CATTN] [ATTN] pour 
interrompre Le fonctionnement de La boucle. 


Exécuter RESTORE 10 : si nécessaire, RESET HPIL 
puis RESTORE 10. Vérifier les connexions HP-IL ; 
vérifier que Les unités sont allumées. 


53 Invalid Device Spec 
53 Invalid Device Spec 


Le spécificateur d'unité n'est pas valide pour 
cet ordre. Vérifier le spécificateur d'unité. 


54 Data Type 
54 Data Type 


Le type de variable spécifiée est incorrect 
(numér i que ou alphanumér ique). Changer 
l'argument de façon que le type soit correct. 


56 Invalid Arg 
56 Invalid Arg 


Argument en dehors de l'intervalle 
Vérifier la valeur de l'argument. 


permis. 


L'étiquette (enregistrement de début ou 
longueur) reçu pendant une opération de stockage 
de masse est incorrect. Re-stocker le fichier. 
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57 No Loop 
57 No Loop 
installée. Vérifier {la 


L'interface n'est pas 


configuration du système. 


59 Insufficient Memory 
59 Insufficient Memory 
Pas assez de mémoire principale pour effectuer 
module 
ou des 


l'opération. Ajouter un mémoire 5 


supprimer des fichiers affectations de 


touches : ré-allouez La mémoire vive interne. 


60 RESTORE 10 Needed 
60 RESTORE 10 Needed 


Tentative d'exécution d'une opération E/S 
l'exécution de OFF 10. Exécuter RESTORE 10. 


après 


LEX "ILMSGLEX" 


1D #FF 
MSG MSGTBL 
POLL O0 
ENDTXT 


MSGTB8L CON(2) 00 
CON(2) 70 

4000 CON(2) (MO01)-(M000) 

CON(2) 0 'HPIL 

CON(1) & 

NIBASC 'HPIL ‘! 

CON(1) 12 

MOO1 CON(2) (M003)-(M001) 

CON(2) 1 'ASSIGN 10 Needed' 

CON(1) 5 

NIBASC 'ASSICN' 

CON(3) 13 

CON(2) 68 

CON(1) 12 

MOC3 CON(2) (MOO4)-(M003) 

CON(2) 3 

CON(1) 14 

CON(2) 78 

CON(1) 12 


‘Excess Chars' 


x 


004  CON(2) (M005)-(M004) 
CON(2) 4 
CON(1) 14 
CON(2) 82 
CON(1) 12 


‘Missing Parm' 


CON(2) (MO06)-(M005) 
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M006 


MO07 


MO16 


MO17 


MO18 


MO19 


MO21 


CON(2) 
CON(1) 
CON(2) 
CON(1) 


CON(2) 
CON(2) 
CON(1) 
CON(2) 
CON(1) 


CON(2) 
CON(2) 
CON(1) 
CON(2) 
CON(1) 


CON(2) 
CON(2) 
CON(1) 
CON(2) 
CON(1) 


CON(2) 
CON(2) 
CON(1) 
NIBASC 
CON(1) 
CON(2) 
CON(1) 


CON(2) 
CON(2) 
CON(1) 
NIBASC 
CON(1) 
NIBASC 
CON(1) 


CON(2) 
CON(2) 
CON(1) 
NIBASC 
CON(1) 
NIBASC 
CON(1) 


CON(2) 
CON(2) 
CON(1) 
NIBASC 
CON(1) 
CON(2) 
CON(1) 


CON(2) 
CON(2) 
CON(1) 


5 ‘Invalid Parm' 
14 

81 

12 

(M007):(M006) 


6 ‘Invalid Expr'! 
14 

80 

12 

(M016)-(M907) 


7 'Syntax! 
14 

75 

12 

(M017)-(M016) 


16 ‘file Protect! 
14 

61 

12 

(M018)-(M017) 


17 ‘End of Medium! 
5 

‘End of' 

13 

67 

12 


(M019)-(M018) 


18 ‘Not LIF Format! 
7 

‘Not LIF ! 

5 

‘Format! 

12 

(MO20)-(M019) 


19 ‘Disk Drive Error! 
7 

‘Disk Dr! 

7 

‘ve Error! 


12 


(M021)-(M020) 

è0 ‘No Medium! 
1 

No! 

13 

67 

12 


(MO22)-(M021) 
21 Low Battery 
14 


EL 


MO22 


MO23 


MO24 


MO25 


M026 


MO28 


MO29 


MO30 


CON(2) 22 
CON(1) 12 


CON(2) (M023)-(M022) 

CON(2) 22 ‘File Not Found! 
CON(1) 14 

CON(2) 57 

CON(1) 12 


CON(2) (MO24)-(M023) 
CON(2) 23 
CON(1) 2 
NIBASC ‘New! 
CON(1) 13 
CON(2) 67 
CON(1) 12 


‘New Medium! 


CON(2) (M025)-(MO24) 

CON(2) 24 ‘Blank Medium' 
CON(1) 4 

NIBASC ‘Blank! 

CON(1) 13 

CON(2) 67 

CON(1) 12 


CON(2) (M026)-(M025) 
CON(2) 25 
CON(1) 7 
NIBASC 'Wrong di! 
CON(1) 7 

NIBASC ‘'r # reco' 
CON(1) 2 

NIBASC 'rds' 
CON(1) 12 


‘Wrong Dir # records! 


CON(2) (MO28)-(M026) 
CON(2) 26 
CON(1) 7 
NIBASC 'Checksum' 
CON(1) 12 


tChecksum' 


CON(2) (M029)-(M028) 

CON(2) 28 ‘Size of File! 
CON(1) 7 

NIBASC 'Size of ! 

CON(1) 14 

CON(2) 234 

CON(1) 12 


CON(2) (M030)-(M029) 

CON(2) 29 iWrite protected! 
CON(1) 14 

CON(2) 66 

CON(1) 12 


CON(2) (M031)-(M030) 
CON(2) 30 ‘File Exists!' 
CON(1) 14 


M031 


M0O32 


M034 


M035 


M036 


M037 


M038 





CON(2) 59 
CON(1) 12 


CON(2) (M032)-(M031) 
CON(2) 31 
CON(1) 7 
NIBASC ‘Director! 
CON(1) 5 

NIBASC 'y Full! 
CON(1) 12 


‘Directory Full! 


CON(2) (M034)-(M032) 

CON(2) 32 ‘Device Not Found! 
CON(1) 14 

CON(2) 64 

CON(1) 12 


CON(2) (M035)-(M034) 
CON(2) 34 
CON(1) 13 
CON(2) 66 
CON(1) 7 
NIBASC ‘Not Read! 
CON(1) 0 

NIBASC y! 

CON(1) 12 


‘Device Not Ready! 


CON(2) (M036)-(M035) 

CON(2) 35 ‘Loop Broken! 
CON(1) 13 

CON(2) 69 

CON(1) 5 

NIBASC ‘Broken! 

CON(1) 12 


CON(2) (M037)-(M036) 
CON(2) 36 
CON(1) 14 
CON(2) 239 
CON(1) 4 
NIBASC 'Many ‘! 
CON(1) 13 
CON(2) 70 
CON(1) 12 


‘Too Many Frames! 


CON(2) (M038)-(M037) 
CON(2) 37 
CON(1) 13 
CON(2) 70 
CON(1) 4 
NIBASC ! Lost! 
CON(1) 12 


‘Frames Lost! 


CON(2) (M039)-(M038) 

CON(2) 38 ‘Frames Altered! 
CON(1) 13 

CON(2) 70 

CON(1) 7 
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MC39 


M92 


MO 1 


MOL2 


MO&3 


MO&S 
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NIBASC 
CON(1) 


CON(2) 
CON(2) 
CON(1) 
NIBASC 
CON(1) 
NIBASC 
CON(1) 
CON(2) 
CON(1) 


CON(2) 
CON(2) 
CON(1) 
CON(2) 
CON(1) 


CON(2) 
CON(2) 
CON(1) 
CON(2) 
CON(1) 
NIBASC 
CON(1) 


CON(2) 
CON(2) 
CON(1) 
CON(2) 
CON(1) 
NIBASC 
CON(1) 


CON(2) 
CON(2) 
CON(1) 
CON(2) 
CON(1) 
NIBASC 
CON(1) 


CON(2) 
CON(2) 
CON(1) 
NIBASC 
CON(1) 
NIBASC 
CON(1) 


CON(2) 
CON(2) 
CON(1) 
NIBASC 
CON(1) 
NIBASC 
CON(1) 


' Altered' 


12 


(MO40) 
39 
7 


MO 7 


- (M039) 
‘'Unexpected Message! 


‘Unexpect' 


2 
‘ed ! 
13 
65 
12 


(M041) 
&0 
13 
36 
12 


(MO42) 
41 

14 

236 

3 
‘Mode 
12 


(M043) 
&2 

13 

65 

6 


MOS2 


- (M040) 
‘Too Many Frames! 


- (M041) 
‘Invalid Mode! 


MOS4 


- (MO&2) 
‘Message Altered'! 


M056 


'Altered! 


1è 


(MO44 ) 
43 
13 
69 
6 


- (MO&3) 


‘Loop Timeout! 
MOS7 


‘Timeout! 


12 


(M045) 
4 
7 


- (M0O4&&) 


‘Bad Addresses! 
MO59 


‘Bad Addr' 


& 
lesses 
12 


(MO&7) 
45 
7 


- (M045) M060 


‘Self Test Failed! 


tSelf Tes! 


7 
‘t Fai 
12 


led! 


CON(2) 
CON(2) 
CON(1) 
CON(2) 
CON(1) 
NIBASC 
CON(1) 


CON(2) 
CON(2) 
CON(1) 
NIBASC 
CON(1) 


CON(2) 
CON(2) 
CCN(1) 
CON(2) 
CON(1) 
CON(2) 
CON(1) 
NIBASC 
CON(1) 


CON(2) 
CON(2) 
CON(1) 
CON(2) 
CON(1) 


CON(2) 
CON(2) 
CON(1) 
CON(2) 
CON(1) 


CON(2) 
CON(2) 
CON(1) 
NIBASC 
CON(1) 
CON(2) 
CON(1) 


CON(2) 
CON(2) 
CON(1) 
CON(2) 
CON(1) 


CON(2) 
CON(2) 
CON(1) 
NIBASC 
CON(1) 
CON(2) 
CON(1) 





(MOS2)-(M0&7) 
47 

13 

66 

3 
‘Type! 
12 


‘Device Type' 


(MO53)-(M052) 

52 ‘Aborted' 
6 

'Aborted! 

12 


(MC54)-(M953) 


2 ‘Invalid Device Soec! 


(MO56)-(MO54) 


54 ‘Data Type! 
14 

31 

12 

(MO57)-(M056) 


56 ‘Invalid Arg' 
14 

11 

12 

(MCSS)-(M057) 


57 

è 

No 
13 
69 
12 


‘No Loop! 


(MO60) : (MO59) 
59 
14 
è& 
12 


"Insufficient Memory! 


(M065 ) : (MO60) 

60 'RESTORE 10 Needed' 
6 

"RESTORE 

13 


12 


—————— 


MO65  CON(2) 
CON(2) 
CON(1) 
NIBASC 
CON(1) 
MO66  CON(2) 
CON(2) 
CON(1) 
NIBASC 
CON(1) 
M067  CON(2) 
CON(2) 
CON(1) 
NIBASC 
CON(1) 
M068  CON(2) 
CON(2) 
CON(1) 
NIBASC 
CON(1) 
NIBASC 
CON(1) 
M069  CON(2) 
CON(2) 
CON(1) 
NIBASC 
CON(1) 
M070  CON(2) 
CON(2) 
CON(1) 
NIBASC 
CON(1) 


MFIN  NIBHEX 


END 


(M066) - (M065) 

65 ‘Message ! 
7 

‘Message ! 

12 

(M067)- (M066) 

66 ‘Device ! 
6 

‘Device ! 

12 

(M068) - (M067) 

67 ‘ Medium! 
6 

‘ Medium! 

12 

(M069) - (MO68) 

68 ‘ 10 Needed'! 
7 

' 10 Need! 

1 

‘ed! 

12 

(M070)-(M069) 

69 Loop 

4 

Loop‘ 

12 

(MFIN)-(M070) 

70 ‘ Frames! 
5 

‘Frames! 

12 

FF 


Michel MARTINET 
PC#12, SIG#2 





LEX PPOLL ET DEMANDE DE SERVICE 


Jean-François 


nouvelle version de son Lex 


Garnier nous a fait parvenir une 


HPPOLL", paru dans 


JPC No 30, page 50. 





La modification essentielle concerne NLOOP qui 


supporte maintenant l'adressage étendu. 


cas : 


Dans ce 


NLOOP = AES*10000 + AEP*100 + AAD 


où AES représente 
le message HP-IL AES, 
donnée par AEP et 


par AAD. 
LEX 
1D 
MSG 
POLL 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
ENTRY 
CHAR 
KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 
KEY 
TOKEN 
ENDTXT 
eXWORD  EQU 
DLEX EQU 
LEXPIL  EQU 
BSERR  EQU 
FNRTN1  EQU 
1/OFND EQU 
HDFLT  EQU 
SNAPBF  EQU 
FUNCDO  EQU 
GETLPS  EQU 
PUTC EQU 
GET EQU 
ERRORX EQU 
OUTELA  EQU 
NXTSTM EQU 
SLEEP  EQU 
CKSREQ EQU 
NIBHEX 
NLOOP  GOSUB 
CON(5) 





l'adresse finale donnée par 
AEP l'adresse finale 


AAD l'adresse finale donnée 


'PPOLL' 
#E 1 

0 

0 


NLOOP 
#F 
PPOLL 
#F 
Sleep 
#D 
SRQ 
#F 


"NLOOP ! 
62 
"PPOLL'! 
63 
'SLEEP! 
D 
"SRQ' 
65 


#23 
#BFC 
#FF 
#0939A 
#0F216 
#118BA 
#1831B 
#2F7F0 
#2F8BB 
#1015 
#6B1C 
#6751 
#342C 
#05303 
#08A48 
#006C2 
#00721 


801 
JUMPER 
GETLPS 


cherche la boite 
à Lettre hpil 
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PPOLL 


SRQ 


SRO1 


err 


GOC 
LC(4) 
GOSUB 
A=0 
B=C 
A=C 
COSUB 
A=A+C 
COSUB 
GOSUB 
A=A+C 
GONC 


NIBHEX 
GCOSUB 
A=C 
GONC 


NIBHEX 
GOSUB 
CSR 
CSR 
A=C 
LC(1) 
zAËC 
GOSBVL 
D0=(5) 
C=DATO 
COOEX 
C=A 
GOVLNG 


COSUB 
CON(S) 


err 
#0100 
SEND 


MPY 


MPY 
MPYO 


SRQ1 


801 
SIDY 


SRQ1 


HDFLT 
FUNCDO 
À 


W 
FNRTN1 


JUMPER 
ERRORX 


erreur? 
demande le 
nbre de periph 


AAD 


AEP Sleep 


AES 
B.E.T. 


envoie IDY 0 
résultat du ppoll 
BE, Tr: 


envoie IDY 0 Sleepp 


Sleepd 
(P=0) JUMPER 


isole bit SRQ 
conv flottant 


restaure DO 
résultat 
fin 


* ERRIRX n'est pas une routine supportée; 


* n'est valable que pour les versions À & B 


SIDY 


MPY 


MPYO 


COSUB 
CON(S) 
GOC 
LC(4) 
GOSUB 
CON(5) 
GOC 
GOSUB 
CON(S) 
GOC 
A=0 
RTNCC 


JUMPER 
GETLPS 
err 
#1E00 
JUMPER 
PUTC 
err 
JUMPER 
GET 
err 

o 


RCE D: 
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cherche la boite JUMP OS 
au lettre hpil 


erreur? 


envoie La commande 
au processeur d'e/s 
erreur? 

reçoit la 

réponse 

erreur? 

initialise À pour 
La suite 


JUMP 10 


C=C+D 
CSL 
C=C+D 
RTN 


REL(5) 
REL(5) 
COOEX 
RO=C 
CD1EX 
R1=C 
GOSBVL 
GOSBVL 
C=R1 
D1=C 
C=RO 
DO=C 
GOVLNG 


RTNCC 
GOVLNG 


RSTK=C 
CODEX 
D1=(5) 
DATI=C 
D1=(2) 
C=RSTK 
DAT1=C 
D1=(4) 
DATI=A 
D1=(2) 
C=B 
CPEX 
p= 

C=0 
GONC 
C=C-1 
p= 

C=0 
C=C-1 
DAT1=C 
SETHEX 
p= 
LC(3) 
GOSBVL 
GONC 
LC(2) 
B=C 
A=0 
A=A+1 
C=DAT] 
?C=0 
GOYES 
?7B#C 
GOYES 
CSR 
CSR 





L 6 

A 96 

L 100 

Sleepd 

Slecpp 
sauve DO 
et Di en 
RO et R] 

SLEEP en sommeil léger 

CKSREQ traite Les SRQ 
restaure D1 
et 
DO 

NXTSTM 
parse: rien 

OUTELA  décompile: rien 

SNAPBF 

A 

(SNAPBF )+5 

W 

(SNAPBF )+21 

- 

(SNAPBF)+37 

4 

5 

6 

p 

JUMPOS 

P 

7 

p 

P 

8 

0 

DLEX 

1/OFND 

JUMP 90 

LEXPIL 

A 

L 

ë 

6 

8 

JUMP90 

B 

JUMP 20 

n 

£ 


JUMP 20 


JUMP90 


JUMP 30 


JUMP50 


JUMP60 


JPC 


versions 
conçues 


?A<C 
GOYES 
CSR 
CSR 
C=C-A 
GONC 
D1=D1+ 
GONC 
LC(4) 
GOVLNG 
D1=D1+ 


B 

JUMP 20 
A 

A 

B 
JUMP30 
11 
JUMP 10 
eXWORD 
BSERR 
6 


C=DAT1 A 
B=C A 
C=RSTK 
D1=C 
D1=D1+ 5 
CD1EX 
RSTK=C 
C=DATI A 
C=C+B A 
RSTK=C 
D1=(5) (SNAPBF)+21 
A=DATI W 
D1=D1+ 16 
C=DATI 8 


C=C+1 P 

GOC JUMP50 
SETDEC 

P= 6 

?C#0 P 
GOYES  JUMP60 
P=C 5 
D1=(4) (SNAPBF)+5 
C=DATI W 
D1=(2) SNAPBF 
RSTK=C 

C=DAT1 A 
D1=C 

C=RSTK 

RTN 


END 


LE DIVORCE 


No 35 vous avait révélé 
de PRIMLEX, versions qui 
à La fin d'avril. Depuis, 


de nouvelles 
avaient été 


l'acquisition 


des IDS 2 m'a permis de me remettre en question. 


Résultat  : un gain de rapidité, mais 


surtout des octets économisés. 


Léger 


Maintenant les routines en hexa 
décimal, 


primlex. 


font place au 


c'est donc le divorce entre hexa et 


Parmi différentes versions, voici La 
courte en 62 octets qui, malgré 
algorithme très primitif (incrémentation de 1 en 


1), vient à bout de 82646281 en 24". 


plus 
l'handicap d'un 


Puis 


octets seulement et 5"58 contre 5"94 pour 


82646281. 


J'ai 


La nouvelle version de PRIMLEX3 suit 


révisé également DIVILEX et lui ai 


126 
tester 


apporté 


des perfectionnements. Ce nouveau Lex vous sera 


livré prochainement avec un LISTPRIM lui aussi 
revu. 
Guy TOUBLANC (P276) 

LEX tPRIMLEX1! 

ID #E 1 

MSG 0 

POLL 0 
FLOAT  EQU #1B322 
FNRTN1 EQU #0F216 
IDIV  EQU #OEC7B 
POPIN EQU #08D1C 
RJUST  EQU #12AE2 

ENTRY  PRM 

CHAR  #F 

KEY 'PRIM' 

TOKEN 87 

ENDTXT 

NIBHEX 811 
PRM GOSBVL POPIN 

GOSBVL RJUST 

RO=A 

C=0 W 

C=C+1 P 
LOOP  C=C+1 W 

R1=C 

GOSBVL IDIV 

C=R1 

A=A-C W 

A=RO 

GOC OUT 
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FLOAT 
FNRTN1 
POP TN 
RJUST 
SPLITA 
SCR17 


PRM 


LOCP 


78#0 
GOYES 
A=R1 
GOSBVL 
C=A 
GCOVLNG 


END 


LEX 


1D 
MSG 
POLL 


EQU 
E QU 
EQU 
EQU 
EQU 
EQU 


ENTRY 
CHAR 
KEY 
TOKEN 


ENOTXT 


NIBHEX 
GCSBVL 
R2=A 
GOSB8VL 
GOSBVL 
A=B 
GOS8VL 
AR2EX 
GOSBVL 


COSUB 
COSUB 

OSUB 
GOSUB 
GOSUB 
COSUB 
GOSUB 
GOSUB 
GOSUB 


“ 
LOOP 


FLOAT 
“ 
FNRTN1 


"PRIMLEX&" 


#E 


#18322 
#0F216 
#0BD1C 
#12AE2 
#0OC6BF 

0CS53 


PRM 

#F 
'PRIM' 
87 


811 
POP TN 


SPLITA 
SOR17 

M 

R JUST 


RJUST 


TEST 


TEST 

TEST2 
TEST 
TEST& 
TEST2 
TEST4 
TEST2 
TEST& 
TESTÉ 
TEST2 
TESTÉ 
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TESTÉ 
TEST& 
TEST2 
TEST 


HI 


LO 


LO1 


A=R2 
A=A-C 
GONC 
A=RO 
GCOC 
C=C+D 
C=C+D 
C=C+0 
B=C 
A=RO 
p= 
?B>=A 
GOYES 
BSL 
P=P+1 
GONC 
A=A-B 
GONC 
A=A+B 
P=P-1 
GOC 
BSR 
CONC 
p= 
?A#0 
RTNYES 
A=C 
C=RSTK 
GOSBVL 
C=A 
GOVLNG 


END 


WP 
L'OOP 


WP 


WP 


LO 


HI 


LO 


LOI 


LO 


FLOAT 
» 
FNRTN1 








me 


Programme "CPH" (Calcul de pH, cf rubrique HP41) 


10 


20 


30 
40 
50 


Programme de calcul de pH 
Fait Le 26/07/86 par FF&JJM 


DESTROY ALL Q OPTION BASE O0 @ STD @ ON ERROR GOTO 20 
Entrée du nb d'espèces chimiques: 

* acides ou bases (H2S04, OH-,...) 

* jons indifférents (Na+,...) 


INPUT ‘Nb de polybases? ‘;:N à ON ERROR GOTO 40 
Entrée du nb de protons (i.e. H+) accepté par l'espèce La plus 
basique pour chaque polybase 


FOR T=1 TO N 
DISP ‘Nb protons esp'&STR$S(T); à INPUT J(T) 
NEXT T à ON ERROR GOTO 70 


- Entrée de La charge de l'espèce la plus 


60 
70 
80 


basique pour chaque polybase 


FOR T=1 TO N 
DISP ‘Charge esp'&STR$S(T); à INPUT D(T) 
NEXT T @ ON ERROR GOTO 110 


- Entrée de La concentration de chaque espèce considérée 


90 
100 
110 
120 
130 
140 


150 
160 
170 
180 
190 
200 
210 


400 
410 
420 
430 
440 
450 


FOR T=1 TO N 

FOR U=0 TO J(T) 

DISP 'C. esp'&STRS(T)&' pro'&STR$S(U); à INPUT '=!,'0';C(T,U) 
F(T)=F(T)+C(T,U) 

NEXT U 

NEXT T @ ON ERROR GOTO 170 

Entrée des pK des polybases, en commençant par les plus élevés 


FOR T=1 TO N 

K(T,0)=1 ! Evite un cas particulier 

FOR U=1 TO J(T) 

DISP ‘pK esp'&STRS(T)&' pro'&STR$S(U); à INPUT '=';K(T,U) 
KCT,U)=K(T,U-1)*10"C-KCT,U)) 

NEXT U 

NEXT T @ OFF ERROR 

Vérification de l'équation d'électro-neutralité 


FOR T=1 TO N 

FOR U=0 TO J(T) 

LEL+C(T,U)*(D(T)+U) 

NEXT U 

NEXT T 

IF L THEN DISP ‘ERR:Electro-neutralité' à END 


- Résolution de l'équation d'électro-neutralité 


500 
520 
530 


540 


DISP ‘Working... à FIX 2 Q A=1.E-14 à B=1 à ON TIMER #1,10 GOSUB 2000 
H=(A+B)/2 à O=FNH(H) à IF FNH(A)*O<0 THEN B=H ELSE A=H 

IF ABS(O)>.0000001 THEN 520 

Affichage du résultat 


DISP !‘pH'&CHR$S(126)8&STRS(-LOGI0(H)) à STD à END 
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- Vérification de l'électro-neutralité 


—_— on ne ee ee me me ue me de de de (ue (ue Ge (ee (ee ue (oO ue ue ue de due ue ue de ce ce ce de de ce de ce de de de de de de em mmmmmemmmez 
=== mm mm mm mm mm mm mm mm mm mme mm me 


1010 FOR T=1 TO N 
1020 P=0 à 0-0 

1030 FOR U=0 TO J(T) 
1040 Z=H°U/K(T,U) 
1050 P=P+(D(T)+U)*2 
1060 Q=0+27 

1070 NEXT U 

1080 R=R+F(T)*P/Q 
1090 NEXT T 

1100 R=R+H-1.E-14/H 
1110 FNH=R @Q END DEF 
2000 DISP 'PH#'&STRS(-LOGIO(H)) À RETURN 
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LE COIN DES LHEX 


Comme de coutume, cette rubrique contient La liste des codes hexadécimaux des fichiers Lex 
parus ce mois-ci. 


Rappelons ce qu'est un fichier Lex : c'est un program pour Le HP71, en assembleur, qui 
apporte de nouvelles fonctions. Celles-ci sont utilisables directement, ou dans des 


programmes Basic. 


Pour bénéficier de ces nouvelles fonctions, vous n'avez pas besoin de programmer vous-même 
en assembleur, ni de posséder un module Forth/Assembleur. 


IL suffit de recopier le petit programme basic "MAKELEX" ci-dessous, de Le lancer et de 
recopier Les codes du fichier Lex désiré. Quand vous avez fini, les nouvelles fonctions sont 
accessibles, après avoir éteint et rallumé votre HP71. 

Si l'erreur “Erreur de somme" apparait, vérifiez La ligne que vous avez introduite. 

Vous trouverez, outre Les Lex de La rubrique "assembleur", Le Lex CHARLEX nécessaire à La 


rédaction de votre article. Voir l'article "Ah ! Vous écrivez !". 


P. David (PC37 SIG1 CHHU616) 


CHARLEX 

CLLEX 

POSILEX  POSI 225089 

ILMSGLEX 

PPOLL NLOOP 225062 
PPOLL 225063 
SLEEP 225064 
SRQ 225065 

PRIMLEX1 PRIM 225087 

PRIMLEX4 PRIM 225087 


10 CALL MLEX à SUB MLEX à SFLAG -1 à PURGE AH à INPUT "Nb. d'octets: ";N à LC OFF 
20 CREATE DATA AH,1,N-4 à A=HTD(ADDRS("AH")) à B=A à GOSUB 130 

30 Q=1 à X=0 à INPUT "000: ",P$:A$ à C$=A$ à S=0 à GOSUB 90 

40 Q=2 à X=1 à GOSUB 80 à AS=ASECS à A=A+37 à N=N*2+37 9 Q=3 à SFLAG 5 à FOR X=2 TO N DIV 16-1 
50 GOSUB 80 à CS=CSIS*FLAG(5)+1] à POKE DTHS(A),CS à A=A+16-5*FLAG(S,0) à NEXT X à Q=4 
60 DISP DTHS(X)(31: à INPUT ": ",PS[1,MOD(N,16)];C$ à GOSUB 90 

70 POKE DTH$S(A),C$ à POKE DTHS(B),A$ à CFLAG -1 à END 

80 DISP DTHSCX)[3); à INPUT ": ",P$;C$ 

90 DISP DTHS(X)[3]): à INPUT " sm ","---"-D$ 

100 M=S à FOR Z=1 TO LENCCS) à M=NUM(CS [2] )+M+1 à NEXT 2 

110 IF DS=DTHS(MOD(M,4096))[3] THEN GOSUB 130 à S=M à RETURN 

120 DISP "Erreur de somme" à BEEP à P$=C$ à POP à ON Q GOTO 30,40,50,60 

130 P$=m------.-........ “ à RETURN 
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CHARLEX  ID#E1 624 octets 036: 084E794142400000 1E9 


037: 00000000002E4559 527 POSILEX ID#E1 131 octets 
0123456789ABCDEF sm 038: 3200000000000000 83C 
039: 0000000000000026 B54 0123456789ABCDEF sm 

000: 34841425C4548502 35E 03A: 5556587008365556 EB3 
001: 802E004191110168 6AD 038: 5810083645464830 204 000: 05F43594C4548502 373 
002: SE4001E000000000 9F1 03C: 0832414248700024 545 001: 802E006091110168 6C3 
003: FE0000000800001F D4B 030: 5655587008345655 8A2 002: 801001E959500000 A18 
004: F31BF9614000328F ODE 03E: 5810083446454830 BF1 003: F710000000000000 D46 
005: 38F14A11DB10AD23 478 03F: 0C3042414C7000284 F46 004: 091000F705F43594 081 
006: 07D532BFB8FD7911 828 040: 5556587008355654 2A3 005: 951FF8842380DF89 458 
007: 11AD75407A101783 BAE 041: 5810083546444830 5F2 006: 382D0A6C442B8FBC6 806 
008: 1101401C81500000 F19 042: 0C3142404C700025 948 007: 315F017FD2A6EE25 BB1 
009: 71450375FF864834 296 043: 5455587008355455 CA2 008: 0080029E07EDF100 F44 
00A: 5655581008355654 SED 044: 5810083544454830 FFO 009: 77DF1189E6S0AEEF 310 
008: 5810002455565870 93A 045: 0C3140414C700875 352 O0A: OFOAEAD88F83D801 609 
00C: 0026555658700836 CBC 046: 1414187000044972 6A3 008: C1137135C28F534B A62 
000: 5556581008364545 FE2 047: 40000€3159454E30 A03 00C: 1137AF7C2137148D DF7 
00E: 4A30000449724000 335 048: OC7A0F7949400024 D7B 000: 98FC70815221C113 17D 
00F: 0808094A2C180814 69E 049: 5554587000084A71 007 00E: 71358B875ED0AFBE8F 543 
010: A464242008355455 9F8 O4A: 40000C523A262D10 438 00F: B14B1135SE1AF013 8CC 
011: 581000054C714000 D3E 048: 0424587458400875 78F 010: 3AFBBFB14B1135EA CEF 
012: 0C3142404C700832 O9A 0O6C: 1415187000094A70 ADF 011: F881CE48FB13B1AF 060 
013: 41414A70002078A0 3F2 04D: 4000083544454830 E23 012: 617180612F0 èc5 
014: 2F30000000000000 71D O4E: 0C3140414C300C74 188 
015: 0000000000000000 A2D OF: 5655545000054C71 4E2 ILMSGLEX ID#FF 482 octets 
016: 0000000000000000 D30 050: 40000 5DB 
017: 0000000000000000 04D 0123456789ABCDEF sm 
018: 0000000000000000 350 CLLEX ID#E1 189 octets 
019: 0000000000000000 660 000: 94C4D43574C45485 3EC 
01A: 0000000000000000 97D 012345678SAB8CDEF sm 001: 802E005091110168 60B 
018: 0000000000000000 C80 002: 8c300FFFF0000000 A61 
01C: 0000000000000000 F9 000: 34C4C45485020202 361 003: FE000C000000001F DC6 
010: 0000000000000000 2AD 001: 802E006091110168 681 004: F006401004840594 119 
01E: 0000000000000000 5BD 002: E71001EFF0000000 A20 005: c402071105143535 478 
01F: 0000000000000000 8CD 003: FE0000000610001F D79 006: 9474E4D0044C8030 7F3 
020: 0000000000000000 BDD 004: F34802E08A200013 OE& 007: EE4C8040E25C8050 B8C 
021: 000000000000080€C F08 005: 182961D031F2961F 46F 008: E15C8060E05C8070 F14 
022: 1A28080008080A2C 272 006: 0007ADF44000037F 7E9 009: EB4&CB8001ED3C5111 282 
023: 180008040E340800 5BB 007: CF4400017F173153 BSC O0A: 554E64602F666034 63A 
024: 08001E3018000000 8F5 008: 01C31CF3020E0690 ED6 00B: C32217E4F64702C4 9C5 
025: 0000000000000000 COS 009: CD21BD55F2146134 268 00C: 946402564F627D61 D3D 
026: 0000000000000000 F15 O0A: 16FD015A3749F440 5F8 000: 647C72317449637B 088 
027: 0000000000000000 225 008: 001631524948C033 94C 00E: 6024427967675602 411 
028: 0201000000010200 538 00C: D3006C6013310116 CA2 00F: 542727F627CD0411 78E 
029: 0000000201020000 850 000: 81361088FD0F8011 029 010: E&F6D34C8051E61C B3E 
02A: 0001000100000002 B64 00E: 1D23102CA1311433 38A 011: 8061E93CF0712E45 ECF 
028: 0102010000000000 E78 00F: 150EAD8102110130 6EB 012: 677D34C3181424C6 251 
02C: 0000000000000000 188 010: 11A0606061421361 A46 013: 16E6B6D34CE29177 5F8 
020: 045E755142400101 404 011: 34C218F18F1320E1 DEO 014: 527F6E6760246967 97C 
02E: 0101010000000000 7E7 012: 038F10FA1C331059 162 015: 27023202275636F6 CD7 
02F: 0000000000000000 AF7 013: 08DA939007108071 4CC 016: 2274637C61A17348 048 
030: 0000070507000000 E1A 014: OABFE3F80D0810911 873 017: 65636863757D6C91 307 
031: 00000000083444C4 158 015: 8135023152111CA1 BE7 018: C173596A75602F66 760 
032: 44400D7901112070 4B8 016: 3011A8F771B11181 F58 019: 602EAECB80D1E24C8 B19 
033: 050D750509700000 802 017: 3416A5D0136C2134 2C7 O1A: OE1EB3C32F174496 EB6 
034: 0D70000000384540 B45 018: 1651428ACFE 13213 648 018: 27563647F6275970 228 


035: 4020014E322E3140 E99 019: 011BE214482103F 982 01C: 26457Cé6C6CB8002E0 5B4 


BC SL PRE 0 à 








01D: 4CC122D247E4F647 954 002: E62001EE31400000 A18 


01E: 0225561646097C51 CB2 003: F230000000000000 D43 0123456789ABCDEF sm 
01F: 3205452427F6B656 037 004: 075000FD0028000F OA9 
020: E6C6142EFE4D416E 3FA 005: A100110007200700 405 000: 052594D4C4548513 372 
021: 69702D64C3152D64 77C 006: OF9E4C4F4F40SE39 7BE 001: 802E006091110168 6C2 
022: 402C4F63747C9162 AFF 007: 0505F4C4C4F3935C B5D 002: 180001E757500000 A09 
023: D6470214C6475627 E73 008: 45454050453525 15" EA6 003: F710000000000000 D37 
024: 5646C0272755E656 1ED 009: 141FF8017DF051D1 23D 004: 071000F7052594D4 090 
025: 8707563647256460 549 004: 0476330010767000 58D 005: 751FF8118FC10808 450 
026: 2D014C8082042C119 801 008: AFSAEA7680CA7080 948 006: F2EA21100AF2806B 7F5 
027: 2ECE3D4F64656C71 C87 00C: 7780CA5428017240 CB3 007: 761098FB87CE01198 B98 
028: A2D14614C6475627 006 000: AEA5718017530F6F 051 008: 7A1104A097D4E 111 F17 
029: 5646C71820546459 38F 00E: 6AB8A3010E 0686813 3E4 009: 8F22381AF680612F 2C7 
O2A: 6D656F65747C12C2 728 00F: B11B888F2146136A 784 004: 0 2F8 
028: 7241646021446462 A73 010: F68D612F07C80C24 B26 
02C: 745637375637C72D DF2 011: 30738051D104DE33 E99 PRIMLEX4 ID#E1 126 octets 
020: 273556C666024556 159 012: 00E17170C186048D 224 
02E: 3774702641696C65 4C5 013: 7560157604FCD0003 590 0123456789ABCDEF sm 
02F: 646C11F202434597 848 014: BF5BF5D2AE9C6D7C 993 
030: 0756C414361426F6 BB8 015: 7C8F2C8019300023 D1E 000: 052594D4C4548543 375 
031: 27475646C4153ECE F4E 016: 0001361081371098 O0SE 001: 802E006091110168 6C5 
032: D24335075636C806 28F 017: F2C6008F12700119 302 002: 101001E757500000 A05 
033: 3EF1C8083EB0CF09 670 018: 1351181348D084A80 73E 003: F710000000000000 D33 
034: 32E4F602054C80B3 A16 019: 038030350061371F AAO 004: 071000F7052594D4 099 
035: E81C71C362554354 D97 O1A: 0F7F21451D5F0715 E2C 005: 751FF8118FC1D801 445 
036: 5F42554D44C61147 118 018: 571E508F15171051 1AA 006: 028FFB6C08F355C0 7F4 
037: D456373716765602 480 01C: D980F526A82550A0 538 007: AD&8F2EA211228F2 B98 
038: C412464456679636 7EC 010: E27A82A0E 1507042 BCE 008: EA21100AF2302AF7 F31 
039: 5602C4134602D456 B53 01E: 032CFB8FAB811543 C75 009: 7740866704079307 296 
034: 469657D6C8144702 ED9 01F: 31FF05D0E415F596 028 00A: 5307E207D2076207 5FF 
038: 94F402E456564615 251 020: A1296561BF6F69E2 3D4 008: 5207E10771079107 95A 
03C: 646C01544C4F6F60 SET 021: COF6F6B6255117A5 772 00C: F001128145901104 CDO 
030: 702C21645642716D 94D 022: AD33320080A93901 AFS 000: O4A1BA1BA1BAF511 O7E 
03E: 65637CFFF 876 023: 75147D5071351741 ES3 00E: 0209FCA0BF10C55F 42F 
024: 3706147C9061F508 1C5 00F: B705CFA7000480BF 7E6 
PPOLL ID#E1 309 octets 025: F2153717F15F7D52 559 010: 55EE2691CO0AFA07 B8E 
026: 7B06440052690E20 88D 011: 8F22381AF680612F F3E 
0123456789ABCDEF sm 027: 80051E5F7F157710 C65 012: 0 F6F 


028: 0F061471350701F F93 
000: 0505F4C4C4020202 368 
001: 802E006091110168 688 PRIMLEX1 ID#E1 62 octets 
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RAPIDITE Entièrement écrit en ossembjeur. 












EFFICACITE 124 nouve!les fonctions en RIM. donc 
toute Jo mémoire centrole reste disponible. 
FIABILITÉ Protection contre Jes fousses monoecvres 


CONFORT Toutes les instructions sont oxplicites ef 
directement ut:li:sobles par ur non spécioliste. 


DOCJMENTS Ur  véritoble Jivre dd opplicotions. 
complet ovec une description de choque fonction. 
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COMMENT AVEZ-VOUS CONNU PPC PARIS CHAPTER ? 
PUBLICITE MAGAZINE 
AUTRE CLUB HP 
RELATIONS, MEMBRES DU CLUB, AUTRES 


QUE RECHERCHEZ-VOUS AU SEIN DU PPC PARIS CHAPTER ? 


Je souhaite adhérer au club PPC PARIS CHAPTER conformément aux statuts de 
l'association. Au mieux de ma connaissance, je déclare avoir le droit de 
fournir tous les programmes et informations que je vous enverrai (sans 
enfreindre des obligations de secret à l'égard d'autres personnes ou 
organismes) pour publication dans Le journal de liaison, sans obligations 
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SIGNATURE, PRECEDEE DE LA MENTION "LU ET APPROUVE" 


LE MONTANT DE LA COTISATION AU PPC PARIS CHAPTER S'ELEVE A 300.00 FF. 
ETUDIANTS: 250.00 FF. (JUSTIFICATIF INDISPENSABLE) 
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{ ] CHEQUE POSTAL 3 VOLETS N 

{ ] MANDAT LETTRE 
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JOINDRE A VOTRE INSCRIPTION UNE PHOTO D'IDENTITE ET UNE ENVELOPPE TIMBREE A 
VOTRE ADRESSE. 


VEUILLEZ ENVOYER TOUTE CORRESPONDANCE A : 
MR PHILIPPE GUEZ, 56 RUE J.J. ROUSSEAU, 75001 PARIS 


rs 


ED LAN QU) 


ES 


Ut TEA CE 


F4 AMD 21 


1300 AE 1lhs be 


si Vi. 60 


+) 
F 


. 


2 3 = UF Pa - LL — h, 
) AG r, So Am°' 3j 


: OPA VERS NT AT Te 4 . 

Du pe pi fc | Lil. x 
| ! N }. EP: 447 pras | 1.0 0 À Li ta 524 
cu Ji à DU EE à LILI ia 

ÿ » ' : ( | 

1. | ! 1 | EC > « 2.1 . | | : 

| <! * . 
| | 1, { |, - l 4,5, 5. Lt: - 
| ! | 2 : | | | u Lu _ , TE : . ‘ . ee 47 
Dot 50 6j rtf |, 6e |} se |, | 97 j ie Gr 
2 i e . [ | s2® î : 2. = : | L er fé at# ès 

CHI A 
_ LL / es LE 
de h EL STE A) 
de LL PA ASIE RS 02 6: <!t lle 
= = - _ 4 - me '— L - — - M pe - 
.. - | ‘ mi, ‘vomir é TUE à he “Os 
— ln D +  — . — = ee 2 em 
? at vi Lac ce © rw  , 14 pif 
_ - lt" a a £# |. SU 
@o! “+ 
—— — 6 e- = Ca] = Es —_— _ » _ 
L i à . = > Ce. A “HU, ni Lip 
‘ A, 0 26} floge nur © SSv Livre h 
cm _ D _ _ - _ A En ER —. nn 
æ cu jfgibte =:42 … 2247 . 4 dir we wie iiptae À 
WW =Ÿ" corn croient D  O iamsiior.es ne di vis 01 CNET TE CL RE 

237 _eot708 à 228 5 DE © + men’ ES 0 4 Mot AE 
Pet 2 1r9 ge Ë. Use © xmviiaglé ge ‘°esiss 

ee mt VF 0.2 RC ant. 1 (VF 'uËSr hs . id" 

, : . ê 
L 1e Ù 7 —6 d e ve e Par, vo 10e sale © titi ré) 

ml. Ve 20,8% P08 a Si vorrib cer Due 
| MR TA £ 
oo PET Le nn CR. A1 e., PAPER wa FU ts 


ET é 
PEN © 


IST 71e 2e D her ‘3 4 
MARIA | y 
ca: 


d 


lle 2 Mine tar 7 


ee “he 


- 5  q'ac À L Li © 
otfret: 
i 


M 


°f et—=0: (l 


09 06 : » «79 ." «a 


nn Ne 5 Lit G66 Mas 
Eee N E, F …. = 13100 tarriie 
MIA JA .5 = 1 e 


_ e * 


Ce NAN Ce | 
UPS" Tous ui 
SAUTER I LS ve 2 © 2, :Wé 
64 141 € FUI 
WII ET 


Dr TAN 


rer 


1 À 4199 ACTMCHAIR HIS LOT Ms NI 


DS D le FOR 


+ AR Me ,, 0 40 SATLENT AM 


s. 


- 
l 
_ 
L 
_ 
is 
© 
. 
on 
d 
* 
* 
Li 
e 
EE - 
' 
_ 
ne 
LI 


si te 


CRÉÉE ue 

















Le Journal JPC est le bulletin de 
liaison entre les membres de 
l'association "PPC-PC", régie par la loi 
de 1901. Le Club est éditeur du JPC, 
6tuis0n siège --66t au 50, rue 
Jean-Jacques Rousseau, 75001 Paris. 


La maquette de ce numéro a été 
préparée et réalisée par Pierre David, 
Janick Taillandier et Philippe Guez, 
grâce à un système comprenant un 
HP71B, deux lecteurs de disquettes 
HP9I1I14A, une imprimante HP2225B, 
et une imprimante LaserJet. 


Directeur de la publication : Philippe 
Guez. 
Numéro ISSN : 0762 - 381X. 








